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-REM # 


IDENTIFICATION 


PRODUCT CODE: AC-8178C-MC 

PRODUCT NAME: CVDRACO ORV116 DMA INTFC DIAG 
DATE: JUNE 1985 

MAINTAINER: DIAGNOSTIC ENGINEERING 


COPYRIGHT (C) 1976,1985 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE 
COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT 
BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR 
USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE 
TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 


SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE 
ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 











SEQ 0001 
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5681 REVISION A :FIRST RELEASE OF DIAGNOSTIC 
5683 REVISION B :THIS REVISION WAS MADE TO SUPPORT 11/23-8 


. 5685 REVISION C :THIS REVISION WAS MADE TO SUPPORT ORION (11/73)CPU . 
5686 SEE ;00001 





—— 
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5691 
5692 
5693 
5694 TABLE OF CONTENTS 
BIH  — — ———— aeeeee ewer eeeeeee 
5696 
5697 
5698 
5699 1.0 ABSTRACT 
5700 
$701 2.0 REQUIREMENTS 
5702 2.1 EQUIPMENT 
5703 2.2 STORAGE 
5704 
es 3.0 LOADING PROCEDURE 
$707 4.0 STARTING PROCEDURE 
5708 4.1 PROGRAM START 
$709 
5710 5.0 SOFTWARE SWITCH REGISTER 
S711 5.1 OPTIONS 
5712 5.2 CONTROL 
$713 
5714 6.0 ERROR REPORTING 
$715 6.1 ERROR COMMENT 
5716 6.2 ERROR DATA 
$717 
5718 7.0 MISCELLANEOUS 
$719 7.1 ORV118 BUS € VECTOR ADDRESS MODIFICATION 
5720 7.2 XXDP/APT NOTES 
S721 7.3 POWER FAIL 
$722 7.4 MULTIPLE DRV11B INTERFACE TESTING 
5723 7.5 RESTRICTIONS 
5724 
oo 8.0 EXECUTION TIME 
$727 9.0 PROGRAM TEST DESCRIPTIONS 
$726 9.1 GENERAL 
5729 9.2 REGISTER TESTS 
5730 9.3 BYTE ADDRESSING TESTS 
5731 9.4 ‘FNCT’ TO ‘STAT’ WRAP AROUND TEST 
$732 9.5 READY INTERRUPT TEST 
5733 9.6 NPR DATA TRANSFER TESTS 
5734 9.7 MAINT MODE NPR DATA TRANSFER TESTS 
5735 9.8 BURST & NON-BURST MODE TESTS 
ares 9.9 ‘NEX’ ERROR CONDITION TEST 
5738 10.0 LISTING 
5739 
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5741 

5742 

5743 

5744 

5745 

5746 

5747 1.0 ABSTRACT 

SMR = =—«--—_ tn eee enemas 

5749 

5750 THE ORV11B DIAGNOSTIC PROGRAM IS A SERIES OF TESTS DESIGNED 

5751 TO TEST ALL LOGIC FUNCTIONS AND DATA PATHS ACCESSIBLE WITH 

5752 THE LOOP BACK CABLE INSERTED IN THE USER 1/0 CONNECTORS. 

5753 - TOTAL PROGRAM CONTROL IS ACCOMPLISHED THRU THE CONSOLE TERMINAL 

5754 VIA THE ODT/CONSOLE MICROCODE AND THE PROVISIONS OF SECTION 5 

5755 OF THIS DOCUMENT. IF THE SYSTEM ALSO INCLUDES AN “REV11" (DMA REFRESH), 

5756 THE OMA REFRESH MUST BE DISABLED AND CPU REFRESH MUST BE ENABLED. 

5758 2.0 REQUIREMENTS 

te) BAe oe We Oe ee, ee enero 

5760 

5761 2.1 EQUIPMENT 

5762 

5763 1. LSI-11 FAMILY PROCESSOR. 

5764 11/03(LSI-11/02), 11/23(KDF11-A), 11/23B(KDF 11-8) 

5765 2. DLVil WITH I/O TYPE TERMINAL 

5766 3. ORV11B8 WITH LOOP BACK CABLE 

767 

5768 2.2 STORAGE 

5769 , 

3770 THE PROGRAM USES THE LOWER 4K OF MEMORY. 
1 

. 5772 3.0 LOADING PROCEDURE 

7% nr RR OED 

5774 

5775 IF USING PAPER TAPE READER FOLLOW THIS PROCEDURE: 

5776 1. ASSURE ‘THAT THE LSI-11 IS IN THE ODT MICROCODE STATE. 

5777 2. LOAD THE LOW OR HIGH SPEED READER WITH THE ABSOLUTE LOADER 
8 

5779 3. TYPE THE READER'S CSR ADDRESS (177560-LOW OR 177550-HIGH) 

5780 AND CHARACTER ‘L’. 

5781 4. AFTER TAPE IS LOADED, LOAD THE DRV11B BINARY TAPE INTO THE 

5782 READER AND TYPE THE CHARACTER 'P’. 

5783 5. IF THE ABSOLUTE LOADER HAS ALREADY BEEN LOADED (STEPS 2 & 3), 

5784 THEN ONLY THE STARTING ADDRESS OF THE ABSOLUTE LOADER AND 

5785 THE CHARACTER ‘G' NEED BE TYPED (WITH THE DRV118 BINARY TAPE 

5786 IN THE APPROPRIATE READER). 

5787 

5788 4.0 STARTING PROCEDURE’ 

S700 —‘“itit nen mm omree 

5790 

5791 FOR PAPER TAPE MEDIA: 

5792 1. MAKE SURE THE MAINTENANCE LOOP BACK CABLE IS INSERTED IN 

5793 THE I/0 CONNECTORS ON THE M7950 MODULE. 

5794 2. MAKE SURE THE DEVICE BUS & VECTOR ADDRESSES AGREE WITH THE 

5795 DEFAULT VALUES DEFINED IN SECTION 7.1. IF NOT, CHANGE 

5796 LOCATION(S) AS DESIRED VIA THE ‘ADDRESS/’ ODT COMMAND. 
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INSURE THAT THE HALT SWITCH IS DISABLED CIF ANY). 

TYPE THE STARTING ADDRESS OF 200 AND THE CHARACTER G. 

THE PROGRAM WILL RESPOND BY TYPING THE SOFTWARE SWITCH 
REGISTER CONTENTS AND ALLOWING THE USER TO CHANGE ITS 
CONTENTS 6Y ENTERING OCTAL SWITCH REGISTER DATA TERMINATED 
— RETURN - SEE SECTION 5.0 FOR SWITCH REGISTER 
6. THE NEXT QUESTION ASKED IS ABOUT THE TYPE OF A PROCESSOR. 
TYPE ‘Y’ WITH CARRIGE RETURN IF USING KDF11-B8, ‘N’ OTHER- 


IF RUNNING UNDER XXDP+ MONITOR: 

A) 001., 2., 3. OF THE ABOVE. 

8) IN MONITOR MODE TYPE IN ‘R VDRAB?’. 
C) 00 5S. AND 6. 


UNPw 


aeeee 

IF USING LSI-11/238(KDF11-8) AND WANT TO TEST DMA TRANSFERS TO 
I/0 PAGE PUT THE ADDRESS OF YOUR I/O INTERFACE CONTROL RE- 
GISTER INTO LOCATION 1544 (IOPAGE). TO DO THIS PERMANENTLY USE 
LOAD-MOD-DUMP PROCEDURE DEFINED IN 7.2. FOR TEMPORARY CHANGES 
JUST MODIFY LOCATIONS AFTER LOADING THE PROGRAM. 

NOTE: THIS TEST IS NOT GOING TO BE PERFOMED UNLESS THE ABOVE 
MENTIONED LOCATIONS ARE MODIFIED. 

SOFTWARE SWITCH REGISTER 


OPTIONS 

SWITCH OCTAL FUNCTION 

SW15=1 100000 HALT ON ERROR 

SW14*1 040000 LOOP ON TEST 

SW13=1 020000 INHIBIT ERROR TYPEOUTS 
SWil=1 004000 INHIBIT ITERATIONS 

SW10=1 002000 BELL ON ERROR 

SWO9=1 001000 LOOP ON ERROR 

SWO8=1 0004 XX LOOP ON TEST IN SWR <5-0> 
#e4SWO7=1 000200 DEVICE IS KDF11-8 


*#*#4DIAGNOSTIC WILL SET THIS SWITCH AUTOMATICALLY, IF THIS TYPE 
OF A PROCESSOR HAS BEEN CONFIRMED IN A DIALOGUE. IF RUNNING IN 
AUTOMATIC MODE (CHAINS UNDER XXDP OR APT) SEE SECTION 7.2 


CONTROL 


1. THE SOFTWARE SWITCH REGISTER ‘SWREG’ (LOC. 176) CAN BE 
CHANGED BY USING THE ODT FACILITIES. 

2. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 
CONTROL BY TYPING THE ‘CONTROL & G‘ KEYS. THIS 
KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS 
AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 
WITH A CARRIAGE RETURN. 

3. ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF AN 
ERROR CONDITION WITH BIT15 SET CHALT ON ERROR), STEP #2 
ABOVE IS OF NO VALUE, SO RESORT TO STEP #1 TO ALTER THE 
SOFTWARE SWITCH REGISTER IF DESIRED BEFORE TYPING 


























SEQ 0005 
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6.0 


6.1 


6.2 


7.0 


7.1 


7.2 





‘P’' (CONTINUE). 

4. IF THE PROGRAM IS PERFORMING RESET INSTRUCTIONS, SEVERAL 
‘CONTROL & G‘ COMMANDS MAY BE NECESSARY TO BE ACKNOWLEDGE 
BY THE PROGRAM. 


ERROR COMMENT 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 

THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF. 


ERROR DATA 

*ERRPC LISTING ADDRESS WHERE THE ERROR WAS DETECTED 

*TSTNUM TEST NUMBER WHERE THE ERROR OCCURRED 

BUSADR DRV11B8 BUS REG ADDRESS OF CONCERNED OPERATION 

EXPCT DATA THAT WAS EXPECTED 

RCVD DATA THAT WAS RECEIVED 

ADRS MEMORY ADDRESS OF DATA TRANSFER ON ERROR 

*ALWAYS REPORTED . 
MISCELLANEOUS 


DRV11B BUS & VECTOR ADDRESS MODIFICATION 


MODIFY LOCATION ‘$BASE' IF BASE BUS ADDRESS IS NOT 172410. 
MODIFY LOCATION ‘$VECT1’ IF VECTOR ADDRESS IS NOT 124. 


*NOTE: USE THE LSI-11 ODT FACILITIES TO MODIFY THESE LOCATIONS 
Ay ll _—— LOAD. NO VECTOR ASSIGNMENT ABOVE 774 SHOULD BE 


XXDP/APT NOTES 


THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP (REF. ‘unr 8K OR MORE). 


THIS DIAGNOSTIC DOES SUPPORT “APT” AND HAS RUN UNDER IT. 


IF THE PROCESSOR USED IS KODF11-8: 

FOR APT SET $SWREG BITO7 TO 1 (000200) 

FOR XXDP CHAINS SET LOCATION 176 (SWR) BITO7 TO 1 
TO yy” ees XXDP: 


LOAD VORAB? .BIC 
MOD 176 

THE TERMINAL WILL RESPOND: 176/000000 
NOW TYPE IN 200 

BE CAREFUL: AT THIS POINT IT IS NECESARY TO DELETE THE FILE 
FROM THE DISK. 

DEL DLO:VORAS?.BIC CIF MEDIA IS RL ON DRIVE 0) 

- CUMP VORABO.BIC 

TO BE SAFE, SKIP 5S. AND DUMP THE FILE UNDER DIFFERENT NAME 


Va unre 


o 













SEQ 0006 








MAINDEC-11-CVDRA-C DRV118 DMA INTERFACE DIAGNOSTIC MACY11 30(1046) 07-MAY-85 09:37 PAGE 61-3 


CVORAC .P11 


07-MAY-85 09:22 


7.3 


7.4 


7.5 


8.0 


9.0 


9.1 


9.2 


9.3 




















SEQ 0007 


WITH .BIC EXTENSION. 

NOTE: THIS PROCEDU%E ASSUMES THAT DIAGNOSTIC IS ON THE DISK 
FROM WHICH THE SYSTEM IS BOOTED. IF THIS IS UNTRUE 
ik "lemme 6. THE OPERATOR HAVE TO SPECIFY THE ORIVE BEFORE 


POWER FAIL 


A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 


MULTIPLE ORV118 INTERFACE TESTING 


THIS PROGRAM DOES NOT “AUTO-SIZE” THE NUMBER OF DRV118'S CONNECTED. 

THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 8 ORV11B INTERFACES 

WITH CONTIGUOUS BUS AND VECTOR ADDRESSES. THIS IS ACCOMPLISHED 

BY THE OPERATOR SETTING UP LOCATION ‘$DEVM’ WITH A BIT MAP INDICATING WHAT 
INTERFACES ARE TO TESTED. I.€. BITO=1 SAYS TEST 1ST ORV116, 

BITi=1 SAYS TEST 2ND ORV118, BIT2=*1 SAYS TEST 3RD ORV11B, ETC.. 


RESTRICTIONS 


IF THE SYSTEM ALSO INCLUDES AN "REV11” (OMA REFRESH), THE DMA 
REFRESH MUST BE DISABLED AND CPU REFRESH MUST BE ENABLED. 


EXECUTION TIME 


EXECUTION TIME RANGES FROM ABOUT 5 SECONDS WITH NO ITERATIONS 
TO ABOUT 90 SECONDS WITH ITERATIONS ENABLED WITH ONE DRV11B8 CONNECTED. 
AN END PASS MESSAGE INDICATES ALL TESTS HAVE COMPLETED ON ALL SELECTED UNITS. 


PROGRAM TEST DESCRIPTIONS 


GENERAL ‘ 


THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED 

TO TEST LOGIC FUNCTIONS AND DATA PATHS OF THE DRV11B8 DMA INTERFACE. 
A HIGH DEGREE OF TESTING IS ACCOMPLISHED WITH THE AID OF THE 
MAINTENANCE LOOP BACK CABLE PROVIDED FOR DIAGNOSTIC TESTING. 

A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 

AT THE BEGINNING OF THE LISTING. THE COMMENT FIELD WITHIN 

EACH TEST CAN BE BENEFICIAL IN TEST UNDERSTANDING. 


REGISTER TESTS 
THE FOLLOWING REGISTERS ARE READ/WRITE & RESET TESTED: 
1. WORD COUNT 
2. BUFFER ADDRESS 
3. COMMAND/STATUS 
4. DATA BUFFER 


BYTE ADDRESSING TESTS 
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9.7 


9.8 


9.9 
10.0 
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1. COMMAND/STATUS 
2. DATA BUFFER 


‘FNCT’ TO ‘STAT’ WRAP AROUND TEST 
READY INTERRUPT TEST 
NPR DATA TRANSFER TESTS 


THE FOLLOWING NPR XFERS ARE CHECKED FOR CORRECT STATUS, 
WORD COUNT, BUFFER ADDRESS € DATA: 


SINGLE ‘DATI' XFER - FLOATING 1/0 PTRN 

SINGLE ‘DATO’ XFER - FLOATING 1/0 PTRN 

200 ‘DATI' XFERS - FLOATING 1/0 PTRN 

200 ‘DATO’ XFERS - FLOATING 1/0 PTRN 

SINGLE ‘DATI’ XFER TO THE TTY PRINTER CSR 

FOR KDF11-B PROCESSOR THE USER HAVE TO SELECT 
CSR OF A PARTICULAR yy = INTERFACES 


RXV11 (RXO1): 177170 

RXV21  (CRXO2): 177170 

RKV11-D CRKOS): 177404 
MAINT MODE NPR DATA TRANSFER TESTS 
1. THAT MAINT MODE CONTROLS ‘FNCT’ BITS 
2. 200 MAINT MODE XFERS - CHECKING STATUS & DATA 
3. 200 MAINT MODE XFERS TO EACH 4K AVAILABLE MEM 
BURST & NON-BURST MODE TESTS 


1. THAT CPU IS LOCKED OUT IN BURST MODE 
2. THAT CPU IS NOT LOCKED OUT IN NON-BURST MODE 


‘NEX' ERROR CONDITION TEST 
LISTING 


UPSunvr 
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6010 -TITLE MAINDEC-11-CVDRA-C DRV1i18 DMA INTERFACE DIAGNOSTIC 
6011 s*COPYRIGHT (C) FEBRUARY 1985 
6012 s*DIGITAL EQUIPMENT CORP. 
6013 s*#MAYNARD, MASS. 01754 
6014 34 
roee :*PROGRAM BY R. MOORE 
3% 
6017 s*THIS PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDEC SYSMAC 
6018 s#PACKAGE (MAINDEC-11-DZQAC-C5), FEB, 1985. 
6019 3% 
6020 
6021 . -ENABLE ABS,AMA 
6025 
6026 
6027 
6028 
6029 
6030 
6034 
6043 
6044 000007 MFPT=000007 
6045 "104401 TYPE=104401 
6046 104402 TYPOC=104402 
6047 104403 TYPOS=104403 
6048 104404 TYPON= 104404 
6049 104405 TYPDS=104405 
6050 104406 GTSWR=104406 
6051 104407 CKSWR=104407 
6052 104410 RDCHR=104410 
6053 104411 ROLIN=104411 
6054 104412 RDOCT=104412 
6055 000021 $XON=000021 
6056 000023 $XOFF=000023 
6057 000001 $TN=1 
6058 160000 $SWR=160000 ssHALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
6059 167400 $SWR=167400 
6060 000300 $SWRMK =300 
6061 000001 $TN=1 
ees | -SBTTL OPERATIONAL SWITCH SETTINGS 
3* 
6064 3% SWITCH USE 
6065 settee twee cence ceeeee 
6066 34 15 HALT ON ERROR 
6067 3% 14 LOOP ON TEST 
6068 3% 13 “INHIBIT ERROR TYPEOUTS 
6069 3% 11 INHIBIT ITERATIONS 
6070 3% 10 BELL ON ERROR 
6071 3% 9 LOOP ON ERROR 
6072 3* 8 LOOP ON TEST IN SWR<5:0> 
pod -SBTTL BASIC DEFINITIONS 
6075 s*#INITIAL ADDRESS OF THE STACK POINTER ### 1100 «ee 
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177776 
177774 


BASIC DEFINITIONS 
STACK= 1100 

-EQUIV EMT,ERROR 
-EQUIV IOT,SCOPE 


s#MISCELLANEOUS DEFINITI 
HT= il 


LF= 12 

CR= 15 

CRLF= 200 

PS= 177776 
EQUIV PS,PSW 


DOISP= 177570 
s#GENERAL PURPOSE REGIST 
RO= 0 


Ri= #1 
R2= #2 
R32 83 
R4= #4 
RS= 85 
R6= 86 
R7= “7 
SP= 86 
PC= 67 


—s LEVEL DEFINITIONS 
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SEQ 0010 


ssBASIC DEFINITION OF ERROR CALL 
ssBASIC DEFINITION OF SCOPE CALL 


ssCODE FOR HORIZONTAL TAB 

ssCODE FOR LINE FEED 

3sCODE FOR CARRIAGE RETURN 

+sCODE FOR CARRIAGE RETURN-LINE FEED 
ssPROCESSOR STATUS WORD 


ssSTACK LIMIT REGISTER 

ssPROGRAM INTERRUPT REQUEST REGISTER 
ssHARDWARE SWITCH REGISTER 
ssHARDWARE DISPLAY REGISTER 


ER DEFINITIONS 


;;GENERAL REGISTER 
+s;GENERAL REGISTER 
3s;GENERAL REGISTER 
;sGENERAL REGISTER 
3sGENERAL REGISTER 
3s;GENERAL REGISTER 
;:GENERAL REGISTER 
3sGENERAL REGISTER 
3sSTACK POINTER 

:sPROGRAM COUNTER 


ssPRIORITY LEVEL 
ssPRIORITY LEVEL 
ssPRIORITY LEVEL 
ssPRIORITY LEVEL 
ssPRIORITY LEVEL 
ssPRIORITY LEVEL 
ssPRIORITY LEVEL 
ssPRIORITY LEVEL 


NOUSWNMrYO 


PRi= 40 
PR2= 100 
PR3= 140 
PR4= 200 
PRS= 240 
PR6= 300 
PR7= 340 
3#”"SWITCH REGISTER” SWITCH DEFINITIONS 
SWiS= 100000 
SWi4= 40000 
SWi3= 20000 
SWi2= 10000 
SWil= 4000 
SW10= 2000 
SWO9= 1000 
SWO8= 400 
SWO7= 200 
SWO6= 100 
SWOS= 40 
SWO4= 20 
SWO3= 10 
SWwO2= 4 
SWOl= 2 
SwWO00= 


1 
-EQUIV SWO9,SW9 
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1 
6159 -EQUIV BITO9,BIT9 
6160 -EQUIV BITO8,BITS 
6161 -EQUIV 6IT0O7,BIT7 
6162 -EQUIV BIT06,B1T6 
6163 -EQUIV BITOS,BITS 
6164 -EQUIV BIT04,B1T4 
6165 -EQUIV 81T03,8IT3 
6166 -EQUIV BIT02,B81T2 
6167 -EQUIV B8IT01,B6IT1 
ree -EQUIV BITOO,BITO 
6170 s#BASIC “CPU” TRAP VECTOR ADDRESSES 
6171 000004 ERRVEC= 4 ss TIME OUT AND OTHER ERRORS 
6172 000010 RESVEC= 10 ssRESERVED AND ILLEGAL INSTRUCTIONS 
6173 000014 TBITVEC=14 33°T* BIT 
6174 000014 TRIVEC= 14 ss TRACE TRAP 
6175 000014 BPTVEC= 14 ssBREAKPOINT TRAP (BPT) 
6176 000020 IOTVEC= 20 ssINPUT/OUTPUT TRAP CIOT) #*SCOPEss 
6177 000024 PWRVEC= 24 ssPOWER FAIL 
6178 000030 EMTVEC= 30 ssEMULATOR TRAP (EMT) #eERRORss 
6179 * 000034 TRAPVEC=34 ss “TRAP* TRAP 
6180 000060 TKVEC= 60 ssTTY KEYBOARD VECTOR 
6181 000064 TPVEC= 64 ssTTY PRINTER VECTOR 
6182 000240 PIRQVEC=240 s3;PROGRAM INTERRUPT REQUEST VECTOR 
6183 172410 ABASE= 172410 sBASE DRV118 BUS ADRS EQUATE 
6184 104400 TRAP =104400 
6185 000124 AVECTi= 000124 sBASE DRV11B8 VECTOR ADRS EQUATE - 
6186 000001 ADEVM= 1 sDEFAULT TO ONE ORV118 
6187 106427 MTPS=106427 sINSTR EQUATE THAT MOVES BYTE TO PSW 
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74 177522 TMAIN= 177522 sMAINTENCE REGISTERCFOR USE WITH KOF 11-6) 
6190 
6191 
6192 000000 AMSGTY=0 
6193 000000 AFATAL=0 
6194 000000 ATESTN=0 
6195 000000 APASS*6 
6196 000000 ADEVCT=0 
6197 000000 AUNIT=0 
6198 000000 AMSGAD=0 ; 
6199 000000 AMSGLG=0 
6200 000000 AENV=0 
6201 000000 AENVM=0 
6202 000000 ASWREG=0 
6203 000000 AUSWR=0 
6204 000000 ACPUOP =0 
6205 000000 AMAMS1=0 
6206 000000 AMTYP120 
6207 000000 AMADR1=0 
6208 000000 AMAMS2=0 
6209 000000 AMTYP2=0 
6210 000000 AM #0 
6211 000000 AMAMS3=0 
6212 000000 AMTYP3=0 
6213 000000 AMADR3=0 
6214 000000 AMAMS4=0 
6215 000000 AMTYP4=0 
6216 000000 AMADR4=0 
6217 000000 AVECT2=0 
6218 000000 ACOW1*0 
6219 000000 ACOW2*0 
6220 000000 ADDWO=0 
6221 000000 ADDW1=0 
6222 000000 ADDW2*0 
6223 000000 ADDW3=0 
6224 000000 ADDW4=0 
6225 000000 ADDWS=0 
6226 000000 ADDW6=0 
6227 000000 ADDW7=0 
6228 000000 ADDWS=0 
6229 000000 ADDW9=0 
6230 000000 ADDW10=0 
6231 000000 ADDW11*0 
6232 000000 ADDW12*0 
6233 000000 ADDW13*0 
6234 000000 ADDW14=0 
es 000000 ADDW15=0 
6237 -SBTTL TRAP CATCHER 
6238 
6239 000000 ASECT 
6240 000000 014052 $TRAP 
6241 000002 000340 340 
6242 000000 -20 
6243 s#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 
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001550 


TRAP CATCHER 


s@SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
S@LOCATION . A CONTAINS © TO CATCH IMPROPERLY LOADED VECTORS 


-2174 
DISPREG: .WORD 0 ssSOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 ssSOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 
oat GOSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 


-WORD 104,200,2 sIF ‘6B EVENT’ ON @ BUS IS CONNECTED 
sIGNORE IT'S INTERRUPT - JUST DO A RTI 


-SBTTL ACT11 HOOKS 


j | SOSSOSES ESSE ES EEEEEEEESEEESEEEDERESEEEESEEEDESEESEESEEEEEEEEES 
sHOOKS REQUIRED BY ACT11 
$SVPC=. sSAVE PC 


$ENDAD ss1)SET LOC.46 TO ADDRESS OF SENDAD IN . 


: 0 332)SET LOC.S2 TO ZERO 
-*$SVPC 33 RESTORE PC 


-*1000 
-S8TTL APT PARAMETER BLOCK 


} } SOSSSRESSS ES SESEESEEESEEEDESEEESEEESERESEEDEEEEEEEEESEREEEOEEES 
sSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
}  SOCEESESEE SESS EE SSOEESESEEESESSESEDESEEEEESEEEEEEEESEEEEEEEEEEE 
-$X*.  3sSAVE CURRENT LOCATION 
-=24 ssSET POWER FAIL TO POINT TO START OF PROGRAM 
200 ssFOR APT START UP 
244 ssPOINT TO APT INDIRECT ADORESS PNTR. 
SAPTHOR ;;POINT TO APT HEADER BLOCK 
-*.9X  3sRESET LOCATION COUNTER 
|) 06000000006 0000000000600000000000000000000000000000000000000882 
sSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
sINTERFACE SPEC. 


$APTHD: 

*HIBTS: .WORD 0 33TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMBADR: .WORD ‘$MAIL ;;ADORESS OF APT MAILBOX (BITS 0-15) 
$TSTM: .WORD 25, 3sRUN TIM OF LONGE T 

$PASTM: . 

SUNITM: . 


SE TEND-$MAIL/2 ssLENGTH MAILBOX-ETABLEC 
-SBTTL COMMON TAGS 


§ §O0060066000606.40060006060066006000000000600000000000000000000080 
s@THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
s*USED IN THE PROGRAM. 


.#1100 
SCMTAG: ‘ ssSTART OF COMMON TAGS 

$TSTNM: .BYTE 0 ssCONTAINS THE TEST NUMBER 

SERFLG: .BYTE 0 ssCONTAINS ERROR FLAG 

$ICNT: .WORD 0 ssCONTAINS SUE TEST ITERATION COUNT 
SLPADR: .WORD 0 ssCONTAINS SCCPE LOOP ADDRESS 


ST TES 
WORD 6. ssRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
mos 100. ssADDITIONAL RUN TIME (SECS) OF A ot... FOR EACH ADDITIONAL UNIT 


SEQ 0013 
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. PERR: 
$eERTTL: 
SITEMB: 
SERMAX: 


SERRPC: . 
$GDADR: . 
$BDADR: . 
$GDDAT: . 


$BDODAT: 


§ POSES EEESESSESEESESEEEESEESESEESEERESESEEERERESESEEEEEDEDEES 
-SBTTL APT MAILBOX-ETABLE 


-ASCII 


oooooocoooorooco 


Fp neat 33;CODE FOR BELL 


<15> 
<12> 


$3 SSROSSSKASSK SEK SKSSSASESKESSESSHKSSSKEKEKESEALESSSEESESEREKEEEEE 
N 
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SEQ 0014 


ssCONTAINS SCOPE RETURN FOR ERRORS 
ssCONTAINS TOTAL ERRORS DETECTED 
ssCONTAINS ITEM CONTROL BYTE 

ssCONTAINS MAX. ERRORS PER TEST 
ssCONTAINS PC OF LAST ERROR INSTRUCTION 
ssCONTAINS ADDRESS OF ‘GOOD’ DATA 
ssCONTAINS ADDRESS OF ‘BAD’ DATA 
ssCONTAINS ‘GOOD’ DATA 

ssCONTAINS ‘BAD’ DATA 

ssRESERVED--NOT TO BE USED 


ssAUTOMATIC MODE INDICATOR 
ss INTERRUPT MODE INDICATOR 


ssADDRESS OF SWITCH REGISTER 

ssADDRESS OF DISPLAY REGISTER 

ssTTY KBD STATUS 

ssTTY KBD BUFFER 

ssTTY PRINTER STATUS REG. ADDRESS 

ssTTY PRINTER BUFFER REG. ADDRESS 
ssCONTAINS NULL CHARACTER FOR FILLS 
ssCONTAINS @ OF FILLER CHARACTERS REQUIRED 
ssINSERT FILL CHARS. AFTER A “LINE FEED” 
33 ”TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES) 
3sMAX. NUMBER OF ITERATIONS 

ssESCAPE ON ERROR ADDRESS 


ssQUESTION MARK 
ssCARRIAGE RETURN 
s3sLINE FEED 


33;APT MAILBOX 

3sMESSAGE TYPE CODE 

ssFATAL ERROR NUMBER 

33TEST NUMBER 

3sPASS COUNT 

3sDEVICE COUNT 

331/0 UNIT NUMBER 

3ssMESSAGE ADDRESS 

ssMESSAGE LENGTH 

33APT ENVIRONMENT TABLE 

ssENVIRONMENT BYTE 

ssENVIRONMENT MODE BITS 

33sAPT SWITCH REGISTER 

3;USER SWITCHES 

33CPU TYPE ,OPTIONS 

BITS 15-11=CPU TYPE 
11/04=01,11/05202, 11/20=03,11/40=04, 11/45=05 
11/70=06 .P0Q=07,Q=10 

BIT 10=REAL TIME CLOCK 

BIT 9=FLOATING POINT PROCESSOR 

BIT 8=MEMORY MANAGEMENT 
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CVORAC .P11 07-MAY-85 09:22 APT MAILBOX-ETABLE SEQ 0015 
6356 001224 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADORESS.M.S. BYTE 
6357 001225 000 SMTYP1: .BYTE AMTYP1 ;;MEM. TYPE,BLKO1 
6358 74 MEM.TYPE BYTE -- (HIGH BYTE) 
6359 34 900 NSEC CORE=001 
6360 7a 300 NSEC BIPOLAR=002 
6361 36 S00 NSEC M0S=003 
6362 001226 000000 SMADR1: .WORD AMADR1 ;;HIGH ADDRESS, BLKG1 
6363 3¢ MEM.LAST ADOR.=3 BYTES,THIS WORD AND LOW OF “TYPE” ABOVE 
6364 001230 000 $MAMS2: .BYTE AMAMS2 ;;HIGH ADORESS,M.S. BYTE 
6365 001231 000 SMTYP2: .BYTE AMTYP2 ;;MEM. TYPE BLKO2 
6366 001232 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS ,BLKG2 
6367 001234 000 $MAMS3: .BYTE AMAMS3 ;;HIGH ADDRESS.M.S.BYTE 
6368 001235 000 SMTYP3: .BYTE AMTYP3 ;;MEM. TYPE,BLKO3 
6369 001236 000000 $MADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS ,.BLKO3 
6370 001240 000 SMAMS4: .BYTE AMAMS4 ;;HIGH ADDORESS.M.S.BYTE 
6371 001241 000 SMTYP4: .BYTE AMTYP4 ;;MEM. TYPE.BLKO4 
6372 001242 000000 SMADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS ,BLKO4 
6373 001244 000124 $VECT1: .WORD AVECT1 ;; INTERRUPT VECTOR@1,8US PRIORITY@1 
6374 001246 000000 $VECT2: .WORD AVECT2 ;; INTERRUPT VECTOR@2BUS PRIORITYe2 
6375 001250 172410 $BASE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
6376 001252 000001 $DEVM: .WORD ADEVM ;;DEVICE MAP 
6377 001254 000000 $COW1: .WORD ACODWL s;CONTROLLER DESCRIPTION WORDO1 
6378 001256 000000 $COW2: .WORD ACOW2 ;;CONTROLLER DESCRIPTION WORDO2 
6379 001260 000000 $00WO: .WORD ADDWO ;;DEVICE DESCRIPTOR WORDGO 
6380 0C1262 000000 $0DWi: .WORD ADOWL ;;DEVICE DESCRIPTOR WORDG1 
6381 001264 000000 $0DW2: .WORD ADOW2 ;;DEVICE DESCRIPTOR WORDe2 
6382 001266 000000 $DDW3: .WORD ADDW3 ;;DEVICE DESCRIPTOR WORDe3 
6383 001270 000000 $00W4: .WORD ADDW4 ;;DEVICE DESCRIPTOR WORDe4 
6384 001272 000000 $O0WS: .WORD ADOWS ;;DEVICE DESCRIPTOR WORDES 
6385 001274 000000 $00W6: .WORD ADDW6 ;;DEVICE DESCRIPTOR WORDOS 
6386 001276 000000 $D0W7: .WORD ADDW7 ;;DEVICE DESCRIPTOR WORDO7 
6387 001300 000000 $00W8: .WORD ADDWS8 ;;DEVICE DESCRIPTOR WORDGS 
6388 001302 000000 $D00W9: .WORD ADOW9 ;;DEVICE DESCRIPTOR WORDE9 
6389 001304 000000 $D0DW10: .WORD ADOW10 ;;DEVICE DESCRIPTOR WORD#10 
6390 001306 000000 $O0DW1i1: .WORD ADOW11 ;;DEVICE DESCRIPTOR WORD#@11 
6391 001310 000000 $0DWi2: .WORD ADDWi2 ;;DEVICE DESCRIPTOR WORDe12 
6392 001312 000000 $00W13: .WORD ADDW13 ;;DEVICE DESCRIPTOR WORDO13 
6393 001314 000000 $D00W14: .WORD ADOW14 ;;DEVICE DESCRIPTOR wORDe14 
robes 001316 000000 $DDWiS: .WORD ADDWiS ;;DEVICE DESCRIPTOR WORDe15 
6 
6396 
6397 001320 SE TEND: 
6398 
6399 -SBTTL ERROR POINTER TABLE 
6400 
6401 s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
6402 s#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
6403 s*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
6404 s*NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 
cone 3s*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
6407 34 EM 3sPOINTS TO THE ERROR MESSAGE 
6408 34 OH 3s;POINTS TO THE DATA HEADER 
6409 34 OT :sPOINTS TO THE DATA 
roar 34 OF 3sPOINTS TO THE DATA FORMAT 
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015025 
015176 
000000 


015176 
000000 


014254 
015025 
015176 
000000 


014277 
015025 
015176 
000000 


014323 
015025 
015176 
000000 


014345 


014373 
015025 
015176 
000000 


SERRTB: 
sERROR 


sERROR 


sERROR 


sERROR 


sERROR 


sERROR 


sERROR 


sERROR 


sERROR 





sREG TIMEOUT ER 
sERRPC TSTNUM BUSADR 
s$ERRPC TSTNUM $BDADR 


sREG READ/WRITE ER 
sERRPC TSTNUM BUSADR 
s$ERRPC TSTNUM $BDADR 


sBUS RESET ER 
sERRPC TSTNUM BUSADR 
s$ERRPC TSTNUM $BDADR 


EXPCT 
$GODAT 


EXPCT 
$GODAT 


EXPCT 
$GDDAT 
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RCVvO 


$BDDAT 


RCVD 
$BDDAT 


RCVD 
$BDDAT 


sFNCT BITS FAILED TO SET STAT BITS 


sERRPC TSTNUM BUSADR 
s$ERRPC TSTNUM $BDADR 


sREADY INTR FAILURE 
sERRPC TSTNUM BUSADR 
s$ERRPC TSTNUM $BDADR 


sREADY CLR OR SET ER 
sERRPC TSTNUM BUSADR 
s$ERRPC TSTNUM $BDADR 


sSTATUS ER ON XFER 
sERRPC TSTNUM BUSADR 
s$ERRPC TSTNUM $BDADR 


sWORD COUNT ER ON XFER 
sERRPC TSTNUM BUSADR 
s$ERRPC TSTNUM $BDADR 


sBUFFER ADRS ER ON XFER 
sERRPC TSTNUM BUSADR 
s$ERRPC TSTNUM $BDADR 


EXPCT 
$GDDAT 


EXPCT 
$GDDAT 


EXPCT 
$GODAT 


EXPCT 
$GDDAT 


EXPCT 
$GDDAT 


EXPCT 
$GDDAT 


RCVD 


$BDDAT 


RCVD 


RCVO 


RCVO 


RCVD 


RCVD 







SEQ 0016 
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6468 001430 014422 EM12 sDATA ER FROM MEM 

6469 001432 015072 OH2 sERRPC_ TSTNUM BUSADR ADRS EXPCT RCVD 

6470 001434 015212 oT2 s$ERRPC TSTNUM $BDADR $GDADR $GDDAT $BDDAT 

6471 001436 000000 0 

6472 

6473 sERROR 13 

6474 001440 014443 EM13 sDATA ER TO MEM 

6475 001442 015072 OH2 sERRPC TSTNUM BUSADR ADRS EXPCT RCVD 
. 6476 001444 015212 OT2 s$ERRPC TSTNUM $BDADR $GDADR $GODAT $BDDAT 

6477 01446 000000 0 

6478" 

6479 sERROR 14 

,6480 001450 014462 EM14 sSINGLE CYCLE OFF DID NOT LOCK OUT CPU 

6481 001452 015147 DH3 sERRPC_ TSTNUM BUSADR 

6482 001454 015230 OT3 s$ERRPC TSTNUM $BDADR 

6483 001456 000000 0 

6484 

6485 sERROR 15 

6486 001460 014530 EMiS sSINGLE CYCLE ON LOCKED OUT CPU 

6487 001462 015147 DH3 sERRPC TSTNUM BUSADR 

6488 001464 015230 DT3 s$ERRPC TSTNUM $BDADR 

6489 001466 000000 0 

6490 

6491 sERROR 16 

6492 0C1470 014716 EM16 sNEX LOGIC ER 

6493 001472 015025 DH1 sERRPC_ TSTNUM BUSADR EXPCT RCVD 

6494 001474 015176 OT1 s$ERRPC TSTNUM $BDADR $GDDAT $BDDAT 

6495 001476 000000 0 

6496 

6497 sERROR 17 

6498 001500 014733 EM17 sCYCLE FAILED TO CLK DBR CIN) 

6499 001502 015025 DH1 sERRPC TSTNUM BDADR GDDAT B8DDAT 

6500 001504 015176 OT1 s$ERRPC TSTNUM $BDADR $GDDAT ¢BDDAT 

6501 001506 000000 0 

6502 sERROR 20 

6503 001510 014770 EM20 sDATA ER FROM I/0 PAGE (XCSR) 

6504 001512 015072 DH2 sERRPC TSTNUM BUSADR ADRS EXPCT RCVD 

6505 001514 015212 oT2 s$ERRPC TSTNUM $BDADR $GDADR $GDDAT $BDDAT 

6506 001516 000000 0 

6507 

6508 

4 sDRV11B BUS REGISTER ADDRESS POINTERS 

6511 001520 172410 DRVWCR: 172410 sWORD COUNT 

6512 001522 172412 DRVBAR: 172412 sBUFFER ADDRESS 

6513 001524 172414 ORVCSR: 172414 sCOMMAND/STATUS 

aa 001526 172416 ORVOBR: 172416 sDATA BUFFER 

343 sDRV11B VECTOR ADDRESS POINTERS 

6518 001530 000124 ORVCTO: 124 sREADY, NEX & INCOMPLETE DATIO VECTOR 

= 001532 000126 ORVCT2: 126 sNEW PSW ON INTR 

oot sCOMMON PROGRAM LOCATION(S) 

6523 001534 000000 TSTNUM: 0 sCONTAINS TEST NUMBER ON ERROR 
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6524 001536 000001 


6525 001540 000000 
6526 001542 015364 
6527 001544 000000 
6528 001546 000000 
6529 

6530 001550 

6531 

6532 


6539 001570 012737 
6540 001576 012737 
6541 001604 012737 
6542 001612 012737 
6543 001620 012737 
6544 001626 012737 
6545 001634 012737 
6546 001642 012737 
6547 001650 005037 
6548 0C1654 005037 
6549 001660 112737 
6550 001666 012737 
6551 001674 012737 


6554 001702 013746 
6555 001706 012737 
6556 001714 012737 


6571 002004 012737 


6573 002012 012700 
6574 002016 013701 
6575 002022 010120 
6576 002024 062701 
6577 002030 022700 
6578 002034 001372 
6579 002036 012700 


177777 


001750 
000176 
000174 
000004 


001202 
000200 


001216 


001520 
001250 


000002 
001530 


001530 





ROR POINTER TABL 


OMAP: 1 sDEVICE MAP - EA BIT SAYS TEST THAT ORV116 
CORSZ: 0 sCONTAINS 1ST NON-EXISTANT MEM ADRS 

OBUFP: DBUF sCONTAINS CURRENT 4K NPR BUFFER ADRS 
IOPAGE: 0 sCONTAINS ADDRESS FOR I/0 TRANSFERS 

KDF ; 0 sIF KOF11-8 


-SBTTL PROGRAM START 
START: 


-SBTTL_ INITIALIZE THE COMMON TAGS 
ssCLEAR THE COMMON TAGS ($CMTAG) AREA 


MOV @SCMTAG, RE ssFIRST LOCATION TO BE CLEARED 
CLR (R6)+ ssCLEAR MEMORY LOCATION 
CMP @SWR,RE ;;DONE? 
BNE -6 ssLOOP BACK IF NO 
MOV @STACK, SP ssSETUP THE STACK POINTER 
;;INITIALIZE A FEW VECTORS 
MOV @$SCOPE,@@IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
MOV 0340, Q@IOTVEC+2 ;;LEVEL 7 
MOV @SERROR, QOEMTVEC ; EMT eens FOR ERROR ROUTINE 
MOV 0340, Q@EHTVEC+2 ssLEVEL 7 
MOV @$TRAP eG@TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
MOV #340, B@TRAPVEC +2 sLEVEL 7 
MOV @$PWRON, @OPWRVEC ; ;POWER FAILURE VECTOR 
MOV #340, SOPWRVEC+2 ssLEVEL 7 
CLR $TIMES ssINITIALIZE NUMBER OF ITERATIONS 
CLR SESCAPE ssCLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, $ERMAX ssALLOW ONE ERROR PER TEST 
MOV gerne ssINITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV @., $LPERR 3sSETUP THE ERROR LOOP ADDRESS 
3;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
ssEQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV QPERRVEC,-(SP) ;;SAVE ERROR VECTOR 
MOV 964% ,QGERRVEC ;;SET UP ERROR VECTOR 
MOV @OSWR, SWR ssSETUP FOR A HARDWARE SWICH REGISTER 
MOV @ODISP.DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
CMP @-1,QSWR ssTRY TO REFERENCE HARDWARE SWR 
BNE 66$ +;BRANCH IF NO TIMEOUT TRAP OCCURRED 
3sAND THE HARDWARE SWR IS NOT = -1 
BR 65$ 3sBRANCH IF NO TIMEOUT 
64%: ar 65% ,( SP) 3s3SET UP FOR TRAP RETURN 
65$: MOV @SWREG , SWR ssPOINT TO SOFTWARE SWR 
MOV @DISPREG ,DISPLAY 


66$: MOV (SP)+,Q@ERRVEC ;;RESTORE ERROR VECTOR 


CLR $PASS 3;CLEAR PASS COUNT 
BITB @APTSIZE,$ENVM ;;TEST USER SIZE UNDER APT 
BEQ 67$ 3;YES,USE NON-APT SWITCH 
aie MOV @$SWREG, SWR 33NO,USE APT SWITCH REGISTER 
START1: MOV #ORVWCR, RO sSET UP REG ADRS POINTERS 
MOV $BASE,R1 ;GET BASE ADRS 
SETUP2: MOV R1,CRO)+ ;LOAD EM 
ADD $2,R1 3 
CMP @ORVDBR:2, RO sALL DONE? 
BNE SETUP2 ;BR IF NOT 
MOV #DORVCTO,RO sSET UP DRV11B VECTOR ADRS POINTER 


















SEQ 0018 


SY SS, 
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CVORAC .P11 07-MAY-85 09:22 INITIALIZE THE COMMON T SEQ 0019 
6580 002042 013701 001244 MOV $VECT1,R1 sGET BASE VECTOR ADRS 
6581 002046 042701 170000 BIC #170000,R1 sCLR OUT PRIORITY BITS 
6582 002052 010120 SETUP3: MOV R1,CRO)+ 3 
6583 002054 062701 000002 ADD #2,R1 sPOINT TO NEXT 
6584 002060 022700 001534 CMP @ORVCT2+2,RO sALL DONE? 
6585 002064 001372 BNE SETUPS sBR IF NOT 
6586 -SBTTL TYPE PROGRAM NAME 
6587 ss TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
6588 002066 005227 177777 INC @-1 ssFIRST TIME? 
6589 002072 001052 BNE 64$ ssBRANCH IF NO 
6590 002074 104401 002142 TYPE .65$ ssTYPE ASCIZ STRING 
6591 .SBTTL GET VALUE FOR SOFTWARE SUITCH REGISTER 
6592 002100 005737 000042 TST 0042 ssARE WE RUNNING UNDER XXDP/ACT? 
6593 002104 001012 BNE 66$ ssBRANCH IF YES 
6594 002106 123727 001214 000001 CMPB SENV,@1 ssARE WE RUNNING UNDER APT? 
6595 002114 001406 BEQ 66% ssBRANCH IF YES 
6596 002116 023727 001140 000176 CMP SWR, @SWREG ssSOFTWARE SWITCH REG SELECTED? 
6597 002124 001005 BNE 67$ +sBRANCH IF NO 
6598 002126 104406 GTSWR ssGET SOFT-SWR SETTINGS 
6599 0062130 000403 BR 67$ 
6600 002132 112737 000001 001134 663: MOVB #1, $AUTOB 3sSET AUTO-MODE INDICATOR 
6601 002140 67$: 
6602 002140 000427 BR 64$ 33GET OVER THE ASCIZ 
6603 002142 046600 026504 030461 65%: -ASCIZ <CRLF>@MD-11- CVDRA- C ORV116 DMA INTERFACE DIAG #@<CRLF> 
0C2150 041455 042126 040522 
002156 041455 020040 051104 
002164 030526 041061 042040 
002172 040515 044440 052116 
002200 051105 040506 042503 
002206 042040 040511 020107 
002214 100040 
6604 002220 -EVEN 
6605 002220 64$: 
6606 ; INC @-1 sFIRST PASS? :00001 INSTRUCTIONS 
6607 ; BNE 100$ sBRANCH IF NO 300001 NO LONGER 
6608 ; CMPB #1, $AUTOB sMANUAL INTERVENTION PERMITTED? ;00001 NECESSARY 
6609 ; BEQ 100$ ;BR IF NO 300001 
6610 002220 013746 000010 MOV 9@10,-(SP) sSAVE ILLEGAL INSTRUCTION 300001 
6611 002224 013746 000012 MOV 9@12,-(SP) sTRAP VECTOR 300001 
6612 002230 012737 002246 000010 MOV #100$, 8610 ; s00001 
6613 002236 MFPT sIF CPU TYPE IS 11/23 300001 
6614 002240 152777 000200 176672 BISB #B81T07,@SWR sTHEN SET BIT 7 IN SWREG 300001 
6615 002246 012637 000012 100$: MOV (SP)+,@012 sAND RESTORE TRAP VECTOR s00001 
6616 002252 012637 000010 MOV CSP)+, 8010 ; :00001 
6617 002256 005737 001540 TST CORSZ sTEST IF FIRST PASS 
6618 002262 001002 BNE CORSZR sBR IF NOT 
6619 002264 104401 014567 TYPE »WARN sTELL THE OPERATOR TO TURN OFF DMA REFRESH 
6620 jb | SSSESEAEAE SEES ESSE SESE SESE SE REDE SESESESESESESESAEEEEEEEEEEEEEES 
6621 sLET'S SEE HOW MUCH MEM WE HAVE 
6622 j § BOO SS60460006666006 06 66000606 060000 06 0000000600600000000000004 
6623 002270 012700 020000 CORSZR: MOV #20000 ,RO sUSE RO TO LOOK 
6624 002274 012737 002306 000004 MOV #2$, @ERRVEC sSET UP TIME OUT RETURN ADRS 
6625 002302 005720 1$: TST CRO)+ sTAKE A LOOK 
6626 002304 000776 BR i$ sUNTIL TIMEOUT 
6627 002306 042700 017777 2$: BIC #17777 ,RO sPOINT TO 1ST NON-EXSISTANT 4K BLK 
6628 002312 010037 001540 MOV RO, CORSZ sSAVE FOR LATER 
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012737 


000006 
015364 
000000 


000006 


002564 
001520 


177776 
001124 


176722 
001124 


001124 


001124 


001204 


001260 


001106 
001200 
001192 
001110 


000004 


000004 





GET VALUE FOR SOFTWARE SWITCH REGISTER 


MOV @ERRVEC+2,Q@ERRVEC ;RESTORE VECTOR 
@OBUF , OBUFP sINITIALIZE TO LOWEST 4K 


MOV 00, SUNTT SET UP UNIT COUNT 

MOV $DEVM, DMAP GET THE @ & POSITION OF DRV118'S 

BIC #177400,DMAP —, UP TO 8 ONLY 

BEQ RESTRT GO CONTINUE AS IF SOMETHING WAS SELECTED 

BIT #1, DMAP 31S 1ST ORVi18 SELECTED? 

BNE RESTRT :8R IF SO 

JMP NXDEVL 3NO - GO ADVANCE BASE DRV118 ADDRESSES 
RESTRT: MTPS #200 :SET PRIORITY TO HIGHEST LEVEL 

MOV @STACK, SP sALWAYS RESET STACK PTR 

MOV $UNIT,$DEVCT § ;LOAD APT COUNTER 

MOV $UNIT,RO sMAKE AN INDEX 

ASL RO ; VALUE 

MOV DRVWCR, $DDWOCRO) :SAVE THE BUS ADDRESS 

RESET sINITIALIZE ORVi18 BEFORE TESTING 
5 5 HOOSE6 4006 0660006066606 04046 0606060606 00006000000600000840606408404% 
;@TEST 1 TEST THAT ALL DRV11B REGS ARE ACCESSIBLE 


§ 5 86666400066 0046006 0606066600606 0000000000000000000000040000004004 
TST1i: <NOP > 


MOV #10$ , $LPADR ssSET SCOPE LOOP ADDRESS 

MOV #1, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
10$: MOVB #1,$TSTNM sSET TO TEST #1 

MOV 1%, $LPERR sSET UP SCOPE LOOP ADRS 

CLR $GDDAT sNO DATA COMPARE 

CLR $BDDAT sNO DATA COMPARE 

MOV @2$, BPERRVEC sSET UP TIMEOUT RETURN ADDRS 

MOV ORVWCR ,RO sSET UP 1ST DRV11 BUS ADRS 

MOV 04,R1 sSET UP REG COUNT 
1$: MOV RO, $BDADR sSET UP CURRENT DRV BUS ADRS 

TST CRO) sSEE IF THERE 

TST CRO)+ sBUMP TO NEXT 

DEC R1 sCOUNT 4 OF THEM 

BEQ 3$ 3BR IF ALL DONE 

BR 1$ sTRY NEXT 
2$: CMP (SP)+,(SP)+ sFIX STACK SINCE NO RTI 

ERROR 1 sBUS ADRS INDICATED DID NOT RESPOND 
3$: MOV @ERRVEC+2,Q@ERRVEC ;RESTORE LOC 4 
§ § SERSSEEEEE EEE EE ES OE 0440S OSES ES OE O44 O45 0004 0404 0400000040004 
s#TEST 2 TEST THAT THE WORD COUNT REG IS WRITE/READABLE (FLOAT 0 COM PTRN) 


5 5 PORESEOE EES 64600406 66600606 06006000000000000000000006004000004 
TST2: SCOPE 


MOV 1%, $LPERR sSET UP SCOPE LOOP ADRS 

MOV DRVWCR,$BDADR ;SET UP WC REG ADRS 

CLR RO sRO SAYS SHIFT PTRN WHEN 0 

MOV @-2, $GDDAT sFLOAT O RIGHT TO LEFT 
1$: MOV $GDDAT,@ORVWCR ;LD WC 

MOV SORVWCR,$BDDAT ;READ IT BACK 

CMP $GDDAT,$BDDAT  ;CORRECT? 

BEQ es sBR IF SO 

ERROR 2 sWORD COUNT WRITE/READ FAILURE 
2$: COM $GDDAT sCOMPELEMENT ZERO 

COM RO sRO SAYS SHIFT LEFT WHEN = 0 


1$ sTRY THE COMPLEMENT IF RO NOT 0 
ASL $GDDAT sCOMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT 





SEQ 0020 

















002626 
002632 
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005237 
103754 


001124 


002662 
001522 


177774 


003000 
001526 


177776 
001124 
176514 
001124 


001124 


001124 
001124 


001526 
001122 


177177 
077776 
001126 
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001124 


001110 
001122 


001124 
176520 
001126 
001126 


001124 
001126 
000001 
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INC $GODAT sKEEP LSB SET 
BCS i$ sAGAIN TILL ALL PATRNS DONE 


§ 5 8OSOES OOS 606006 0046060000 000006 00 000600006000000000004600004088 


s*#TEST 3 TEST THAT THE BUFFER ADDRESS REG IS WRITE/READABLE (FLOAT 0 COM PTRN) 
bj CORRES ESSE $644 04 0006 0606 06 0000600006000000000000000000000000008 







SEQ 0021 


































TST3: SCOPE 
MOV #1, $LPERR sSET UP SCOPE LOOP ADRS 
MOV DORVBAR,$BDADR ;SET UP BA REG ADRS 
CLR RO sRO SAYS SHIFT PTRN WHEN 0 
MOV @-4, $GDDAT sFLOAT O RIGHT TO LEFT 
1$: MOV $GDDAT,@DORVBAR ;LD BA 
MOV GORVBAR, $BDDAT ;READ IT BACK 
BIC @6ITO0,$BDDAT  ;DON’T WANT BITOO 
CMP $GDDAT,$BDDAT  ;CORRECT? 
BEQ és sBR IF SO 
ERROR 2 sBUS ADRS WRITE/READ FAILURE 
2s: COM $GODAT sCOMPLEMENT ZERO 
BIC @BIT0O,$GDDAT ;BIT 00 NOT INVOLVED 
COM RO sRO SAYS SHIFT LEFT WHEN = 0 
BNE $ sTRY THE COMPLEMENT IF RO NOT 0 
ASL $GDDAT sCOMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT 
BCC TST4 ssNEXT TEST IF BIT 15 DONE 
ADD #2, $GDDAT sKEEP ADOR LSB SET 
BR i$ sAGAIN TILL ALL PATTERNS DONE 







§ 5 O8O844 4006060046646 0646006000646 08 06 04000008 000000000640000000008 












s#TEST 4 TEST THAT THE DATA BUFFER REG IS WRITE/READABLE (FLOAT 0 COM PTRN) 
§ 5 SORES EE ES OE 60600606 0600400600 000000060000000600000000064000086 
TST4: SCOPE 

MOV #1$, $LPERR sSET UP SCOPE LOOP ADRS 

MOV DRVDBR,$BDADR ;SET UP DB REG ADRS 

CLR RO sRO SAYS SHIFT PTRN WHEN 0 

MOV @-2, $GDDAT sFLOAT 0 RIGHT TO LEFT 
1$: MOV $GDDAT,@DRVOBR ;LD 0B 

MOV SORVDBR, $BDDAT ;READ IT BACK 

CMP $GDDAT,$BDDAT  ;CORRECT? 

BEQ es ;BR IF SO 

ERROR 2 sDATA BUFFER WRITE/READ FAILURE (LOOP BACK) 
2$: COM $GDDAT sCOMPLEMENT ZERO 

COM RO sRO SAYS SHIFT LEFT WHEN = 0 

BNE is sTRY THE COMPLEMENT IF RO NOT O 

ASL $GODAT sCOMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT 

INC $GDDAT sKEEP LSB SET 

BCS i$ sAGAIN TILL ALL PATRNS DONE 






5 4066664660606 66600666 006064046646 0606466060606 0460004000 00040040604044 


s#TEST 5 TEST THAT THE DATA BUFFER REG IS BYTE ADDRESSABLE 
EN adpthetchtachtpthtntecaecateeeeten tet ttt tLe TTT TTT TT TTT TTT TTT Tet 














TSTS: SCOPE 
MOV DRVOBR ,RO sGET OB REG ADRS 
MOV RO, $BDADR sSET UP DB REG ADRS 
CLR CRO) sZERO DATA BUFFER REG 
MOV 177177,$GDDAT ;LD EXPECTED 
MOV 77776,$B8DDAT ;SEND DATA FROM “BDDAT” 
BISB $BDDAT ,1(RO) sLOAD HI BYTE DB 
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001401 


104002 


000010 
001124 
177777 
177776 
177777 
176324 
001520 


176306 
000001 


001522 
176264 
001526 


001126 


001160 
176346 
176342 
176340 
001126 
001122 


001126 
001126 


001122 
001126 
001122 


001160 


001110 
001122 


001124 
001126 


001126 
001126 
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153710 
011037 
023737 


s*TEST 6 


1$: 


2s: 


35 SOS O8 6 660464006 066006060 0004600600600 0000040460000660666060000006 604888 


SCOPE 


s#TEST 7 


TST?: 


1%: 


23: 


3$: 


SCOPE 


$BDDAT +1, CRO) 
CRO), $BDDAT 
$GDDAT , $8DDAT 
TST6 


35 SSSEEE4S SESS OSOSEE EE OS OEEEOEEE 406060846006 0460660646060000000000808 


TEST THAT RESET CLEARS WORD COUNT, BUS ADDRESS & DATA REGS 
jf} PR ROREEEODES EEE EEES HS OOO 00004006 00000000000000000000000000008 


TST6: 


#10, $TIMES 
$GDDAT 

#-1, BORVWCR 
#-1, BORVOBR 
——— 
—— 


GORVBAR, $BDDAT 
#B8IT00, $BDDAT 


2s 
oe 
BORVDBR, $BDDAT 
TST7 

“tere eee 


TEST THAT THE CONTROL/STATUS REG IS WRITE/READABLE (COUNT PTRN) 
jj} PROS EEEE EOE ESOS 06004044 04 00 0040400006000000 0600000000080 00 004 


#10, $TIMES 
#200 
RS ,SETVEC 


1$,$LPERR 
DRVCSR,. $BDADR 
#160000, RO 

RO, $GDDAT 
#167201, $GDDAT 
RO,@DRVCSR 
SORVCSR, $BDDAT 
#7200, $BDDAT 
$GDDAT , $BDDAT 
2s 

2 

#2,R0 

is 

ay 

(SP)+,(SP)+ 
#200 , $GDDAT 
@ORVCSR, $BDDAT 
#7000, $BDDAT 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


SEQ 0022 






sLOAD LO BYTE 0B 

sREAD IT BACK 

sCORRECT? 

ssNEXT TEST IF SO 

sDATA ERROR ON BYTE ADDRESSING THE DATA BUFFER REG 










3300 10 ITERATIONS 
sLD EXPECTED 

sSET ALL BITS - WC REG 

sSET ALL BITS - BUS ADRS REG 
sSET ALL BITS ; DB OUT REG 









ADRS 
sRESET FAILED TO CLR WC REG 
sREAD BUS ADRS REG 
sD0N‘T WANT BITTOO 
sBR IF CLRED 
sSET UP BA REG ADRS 
sRESET FAILED TO CLR BUS ADRS REG 
sREAD DATA BUFFER REG 
ssNEXT TEST IF CLRED 
sSET UP DB REG ADRS 
sRESET FAILED TO CLR DATA BUFFER OUT REG 













3:00 10 ITERATIONS 
sD0N‘'T WANT ANY INTRS 
sSET UP INTR RETURN ADRS IN CASE 
sRETURN TO 3% ON ILLEGAL INTR 

sSET UP SCOPE LOOP ADRS 

sSET UP CSR ADRS 

sSTART AT O - HI BITS FOR NOISE 

3LD EXPECTED 

sMASK TO WRITEABLE BITS 

3LO CSR 

sREAD IT BACK 

3sDON‘T ,oo AT STAT & RDY BITS 
sCORRECT? 

3BR IF SO 

sCONTROL/STATUS - WRITE/READ FAILURE 
sADVANCE COUNT PATTERN 

sWRITE NEXT PATTERN IF NOT ALL TESTED 
3GO0 RESTORE VECTOR 

sFIX STACK - SHOULD NOT HAVE INTR’ ED 
sCORRECT EXPECTED 

sREAD CSR 

3D0N'T WANT ‘STAT’ BITS 






























MAINDEC-11-CVDRA-C DRV118 DMA INTERFACE DIAGNOSTIC MACY11 30(1046) O7-MAY-85 09:37 PAGE 62-14 







CVORAC .P11 07-MAY-85 09:22 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0023 
6797 003420 104005 ERROR 5 sCPU FAILED TO LOCK OUT DORV118 INTR REQ 
6798 003422 004737 010116 4$: JSR PC .RSTVEC sGO RESTORE VECTOR 










§ 5 OO6006060006060046606660660660600006 060000006 000000000000600000000008 














6801 s*#TEST 10 TEST THAT RESET CLEARS ALL WRITEABLE BITS & SET READY IN CSR 
6802 § § PORE EOEE ESOS 606060060668 00000600600000000600000000000000608000008 
6803 003426 000004 TST10: SCOPE 

6804 003430 012737 000010 001160 MOV #10, $TIMES 3300 10 ITERATIONS 

6805 003436 013737 001524 001122 MOV DRVCSR,$BDADR ;SET UP CSR ADRS 

6806 003444 012737 000200 001124 MOV #200, $GDDAT sLD EXPECTED 

6807 003452 012777 177776 176044 MOV @-2,@0RVCSR sLD ALL CSR BITS 

6808 003460 000005 RESET s00 A BUS RESET 

6809 003462 017737 176036 001126 MOV GORVCSR,$BDDAT ;READ CSR 

6810 003470 023737 001124 001126 CMP $GDDAT,$6DDAT  ;CORRECT? 

6811 003476 001401 BEQ TSTi1 s;NEXT TEST IF CSR CLRED & READY SET 
6812 003500 104003 ERROR 3 sRESET FAILED TO SET UP THE CSR 




















6814 § § SOOO OEOEED ESOS 46000006 0606 000600000606 000000 0000000000000000008 

6815 s#TEST 11 TEST THAT THE CSR IS BYTE ADDRESSABLE 

6816 5 § OOO6606 0606000006060 00000606 000006066000060600000000000000008 

6817 003502 000004 TST11: SCOPE 

6818 003504 013700 001524 MOV DRVCSR RO sGET CSR ADRS 

6819 003510 010037 001122 MOV RO, $BDADR sSET UP CSR ADRS 

6820 003514 005010 CLR CRO) sZERO CSR 

6821 0C3516 012737 010300 001124 MOV #10300,$GDDAT  ;LD EXPECTED 

6822 003524 012737 040020 001126 MOV #40020,$BDDAT ;SEND DATA FROM "BDDAT” - USE MAIN + IE 
6823 003532 153760 001126 000001 BISB $BDDAT ,1(RO) sLOAD HI BYTE CSR 

6824 003540 153710 001127 BISB $BDDAT+1,(RO)  ;LOAD LO BYTE CSR 

6825 003544 011037 001126 MOV CRO), $BDDAT sREAD IT BACK 

6826 003550 023737 001124 001126 CMP $GDDAT,$B8DDAT  ;CORRECT? 

6827 003556 001401 BEQ 1$ sBR IF SO 

6828 003560 104002 ERROR 2 sDATA ERROR ON BYTE ADDRESSING THE CSR 
6829 003562 005010 1$: CLR CRO) sZERO CSR BEFORE ADVANCING 


















6831 5 5 O860600606 06666060606 6600000000 000006000000060000000000000000004 

6832 s#TEST 12 TEST THAT THE 3 “FNCT” BITS CONTROL THE 3 “STAT” BITS (COUNT PTRN) 
6833 5 § PERS EREEES EE 64606606 06600006 06600006060000000000000000000000008 

6834 003564 000004 TST12: SCOPE 

6835 003566 012737 003614 001110 MOV #1$, SLPERR sSET UP SCOPE LOOP ADRS 

6836 003574 013737 001524 001122 MOV DRVCSR,$BDADR ;SET UP CSR ADRS 

6837 003602 012737 007000 001124 MOV #7000, $GDDAT sLD EXPECTED 

6838 003610 012700 000016 MOV #16,R0 sRO CONTAINS “FNCT” BITS WRITTEN 

6839 003614 010077 175704 1$: MOV RO, @DRVCSR sWRITE INTO “FNCT” BITS 

6840 003620 017737 175700 001126 MOV GORVCSR,$BDDAT ;READ BACK THRU “STAT” BITS 

6841 003626 042737 170777 001126 BIC 170777, $B8DDAT ;MASK TO “STAT” BITS ONLY 

6842 003634 023737 001124 001126 CMP $GDDAT,$B8DDAT  ;CORRECT? 

6843 003642 001401 BEQ 2s sBR IF SO 

6844 003644 104004 ERROR 4 s“FNCT” BITS FAILED TO SET “STAT” BITS (LOOP BACK) 
6845 003646 162737 001000 001124 2%: SUB #1000, $GDDAT sCHANGE TO NEXT EXPECTED 

6846 003654 162700 000002 SUB @2,R0 sDECREASE COUNT PATTERN 







6847 003660 100355 BPL 1$ sD0 AGAIN UNTIL 0 TESTED 









6849 § 5 OOO 6600006060006000000000000000 0006 000606060000000000000000606 
6850 s*TEST 13 TEST THAT READY SET WILL CAUSE AN INTERRUPT AT LEVEL 0 
6851 § § SOOO 0660406060000600660000000000000006000606006000000000800086 









6852 003662 000004 TST13: SCOPE 
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012737 
106427 
000005 


000004 
012777 
013737 
012737 
005077 
017737 
023737 
001401 
104002 


010116 
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001160 


175622 
001122 
001124 


175572 
175560 


001126 


001126 


001126 
001126 


175370 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0024 
MOV #10, $TIMES 3300 10 ITERATIONS 
MTPS #200 sDONT WANT INTR YET 
RESET sSET THE READY FLAG BY INIT 
MOV #1$,@ORVCTO sSET UP PREMATURE INTR RETURN ADRS 
MOV DRVCSR,$BDADR ;SET UP CSR ADRS 
MOV #300, $GDDAT sLO a i CREADY + IE) 
MTPS #0 sALLOW AN INTR 
CMP (SP),(SP) sSTALL 
MOV 2%, @ORVCTO sSET UP EXPECTED INTR RETURN ADRS 
BIS @6IT6,GDRVCSR ;ENABLE THE EXPECTED INTERRUPT 
CMP (SP), CSP) sSTALL 
MOV SORVCSR, $B0DAT GET THE CSR 
ERROR 5 sREADY FAILED TO CAUSE AN INTERRUPT 
BR 33 sGO RESTORE VECTOR 
i$: CMP (SP)+,(SP)+ sSHOULD NEVER GET HERE - IE NOT WORKING? 
MOV GORVCSR, $BDDAT 'GET THE CSR 
ERROR 5 sREADY INTERRUPTED WITHOUT THE IE BIT 
BR 38 sGO RESTORE VECTOR 
2%: CMP (SP)+,(SP)+ FIX STACK SINCE NO RETURN 
MOV GORVCSR, $BDDAT ;READ STATUS 
CMP $GDDAT,$B8DDAT  ;CORRECT? 
BEQ 3$ sBR IF SO 
ERROR 5 sINCORRECT STATUS ON READY INTR 
34: JSR PC .RSTVEC sGO RESTORE VECTOR 





5 5 880806666666 006606066606 00000600000660060606660000600006000006000008 


s*TEST 14 TEST THAT GO CLRS READY € FNCT 2 WILL SET IT 
j } SOROS OEO060 660600000000 0000000000000060000000000000000000000008 




















TST14: = ot 
MTPS #200 sDONT WANT ANY INTRS 

MOV DRVCSR,$BDADR ;SET UP CSR ADRS 

CLR $GDDAT sEXPECT 0 

MOV #1 ,80RVCSR sSET GO WHICH SHOULD CLR READY 

MOV GORVCSR,$BDDAT ;READ THE CSR 

CMP $GDDAT,$B8DDAT  ;CORRECT? 

BEQ 1$ sBR IF SO 

ERROR 6 sTHE GO BIT FAILED TO CLR READY 
1$: BIS #4, @ORVCSR sFNCT 2 SHOULD SET READY 

MOV #2204, $GDDAT iLO EXPECTED 

MOV GORVCSR,$BDDAT ;GET CSR 

CMP $GDDAT,$BDDAT  ;CORRECT? 

BEQ TST1i5 ssNEXT TEST IF SET 

ERROR 6 sFNCT 2 (VIA ATTN) FAILED TO SET READY 









5 5 $O6666060006 066006606666 060060606 00006666 0006000006006006006000086 











s*#TEST 15 TEST THAT READY CONTROLS ‘BAR’ BITOO 
§ § 98 O06606000006 06 06000000000606 0600000006 00000000000000000000008 
TST1S: SCOPE 

MOV #4, BORVCSR sSET READY 

MOV DRVBAR,$BDADR ;SET UP BAR ADRS 

MOV #1, $GODAT sEXPECT LSB OF BAR 

CLR GORVBAR sCLR BAR 

MOV GORVBAR, $BDDAT ;READ BAR 

CMP $GDDAT,$B8DDAT  ;CORRECT? 

BEQ i$ sBR IF SO 

ERROR 2 sAQO FAILED TO READ A ONE(SB TIED TO ROY) 
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004174 
004202 


012777 
017737 
001403 
005037 


104002 
012777 


000001 
175314 


001124 


004366 
010076 


177776 
177777 


175322 
001126 


175276 


001110 


175124 
175120 


175110 
175102 


001122 
001124 
001126 
175046 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0025 
is: MOV —s-@1, @ORVCSR sSET GOCCLRS BAR BITOO) 
MOV § SORVBAR, $BDDAT READ BAR 
BEQ ts s8R IF ZERO 
CLR $GDDAT sEXPECTED ZERO 
ERROR 2 sWHEN ROY CLRED-AOO FAILED TO READ A ZERO 
2s: MOV = #4, @ORVCSR sINSURE ROY SET BEFORE ADVANCING 
3 § O60 066064666 606600 660606600606 0006 06060066000006002060606000000008 
s#TEST 16 TEST THAT ‘CYCLE’ WILL CLOCK THE DBR CIN) 
3 0666666666 6066 060666 06006060060060660000060060600000006006000000088 
TST16: SCOPE 
MOV = ORVDBR,#6DADR = ;SET UP DBR ADRS 
MOV #125252, $GDDAT LD EXPECTED 
MOV $GDDAT ,GORVDBR LO DBR WITH #125252 
MOV  § @400,QDRVCSR  ;SET CYCLE - SHOULD CLK DBR CIN) 
MOV § @52525,@DRVDBR CHANGE DBR (OUT) DATA - SHOULD NOT AFFECT CIN) 
MOV GORVOBR, #BDDAT READ DBR 
CMP $GDDAT,$BDDAT  ;CORRECT? 
6EQ is s8R IF SO 
ERROR 17 sCYCLE DID NOT LATCH DBR CIN) DATA 
18: BIC @400,QDRVCSR REMOVE CYCLE 
MOV #52525, 9GDDAT NOW EXPECT #52525 
MOV GORVOBR, #BDDAT READ DBR 
CMP $GDDAT,$8DDAT CORRECT? 
BEQ TST17 ssNEXT TEST IF SO 
ERROR 2 sDBR FAILED TO READ WHEN CYCLE CLRED (NORMAL) 
3 800666606606 6606066606 60660660606006000006006006000600000000000008 
seTEST 17 TEST SINGLE “DATI” NPR TRANSFERS (FLOATING 0 COMPLEMENT PATRN) 
3 $606 066660660066 6606 066606066000066066 0600660000000006060006000080 
TST17: SCOPE 
MOV #19, SLPERR sSET UP SCOPE LOOP ADRS 
JSR —s- RS, SETVEC GO SET UP INTERRUPT RETURN 
2s sRETURN TO 29 ON INTR 
MOV #-2,R0 sFLOAT ZERO RIGHT TO LEFT 
CLR RA sR1 CONTROLS DATA SHIFTING 
18: MOV = @-1, BDRVWCR 100 ONE XFER 
MOV @OBUF,GORVBAR GET DATA WORD FROM “DBUF” 
MOVs RO, SET UP MEM DATA 
MOV #101,@0RVCSR  ;SET IE & GO 
BIS @400,@0RVCSR SET CYCLE 
MTPS = @O sENABLE THE INTR 
MOV = ORVCSR,#8DADR = ;SET UP CSR ADRS 
MOV «#700, SGDDAT iLO EXPECTED 
MOV GORVCSR, $BDDAT READ THE CSR 
BIC #100,80RVCSR  ;CLR IE 
ER 5 sWCO FAILED TO INTERRUPT (CHECK FOR WCO) 
BR as GO RESTORE VECTOR 
2: CHP (SP)+,(SP)+ sINTR RETURNS HERE - FIX STACK SINCE NO RTI 
JSR sR, CKSTAT 1GO CHECK STATUS 
700 sCSR STATUS EXPECTED 
i 1@ OF XFERS 
ERROR 7 sRETURN HERE IF STATUS ER - EXPECTED CYCLE, READY € IE 
BR as iGO RESTORE VECTOR 
_ ERROR 10 sRETURN HERE IF WC ER - EXPECTED 0 
BR as 1GO RESTORE VECTOR 
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07-HA 


104011 


010116 
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001120 


001126 
001126 


001122 


001110 


001120 


001126 
001126 


001122 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0026 
ERROR i1 sRETURN HERE IF BAR ER - SHOULD = DBUF +2 
BR at sGO RESTORE VECTOR 
MOV sRETURN HERE IF OK - SET UP XFER ADRS 
MoV RO, $GDDAT sLO EXPECTED 
MoV -SBDDAT ;READ DATA XFERED 
CHP $GDDAT,$600AT  ;CORRECT? 
BEQ $ sBR IF SO 
MOV DRVDBR.SBDADR SET UP DBR ADRS 
ERROR 12 sDATA ER - DBR CONTAINS WRONG DATA 
4 sGO RESTORE VECTOR 
38: CoM RO sRETURN HERE ON GOOD DATA - NOW COM PATRN 
COM Ri iKEEP TRACK OF COMPLEMENT 
BNE 18 100 COMPLEMENT OF THIS FLOATING ZERO IF 0 
ASL RO sWAS DONE - NOW SHIFT ZERO LEFT 
INC RO sKEEP LSB SET 
BCS 1% sAGAIN TILL ZERO BIT IN CARRY 
4: JSR PC .RSTVEC sGO RESTORE VECTOR 


§ § O006066606000600 666606060000 60006660000000000600000000000006000006 


s*TEST 20 TEST SINGLE “DATO” NPR TRANSFERS (FLOATING 0 COMPLEMENT PATRN) 
§ | SESSSS SSE ES EEEEESESESEEEEEEEEESEseseceseseeeseoneseeseneES 


TST20: SCOPE 
MOV 


01%, SLPERR 
= RS ,SETVEC 
MOV 4-2, RO 
CLR _* 

18: MOV @-1, @ORVWCR 
ann @OBUF , GSORVBAR 
MOV #103 ,@ORVCSR 
Is »@ORVC 
MTPS 
MOV ORVCSR , $#BDADR 
MOV #1702, §GDDAT 
MOV GORVCSR, $BDDAT 
ERROR 5 
BR &$ 

2%: CMP (SP)+,(SP)+ 
JSR RS .CKSTAT 
1702 
ERROR 7 
BR ag 
ERROR 10 
BR 4S 
ERROR i 
MOV @OBUF , $GDADR 
MOV RO, $GODAT 
MOV OBUF , $BDDAT 
CMP $GDDAT , $BDDAT 
BEQ 3¢ 
MOV ORVOBR , $BDADR 
ERROR 13 


sSET UP SCOPE LOOP ADRS 
sG0 SET WI 


3 
sFLOAT ZERO RIGHT TO LEFT 
sR1 yap DATA SHIFTING 


100 

;WRITE DATA WORD TO “DBUF* 

sSET UP DATA IN DBR 

sSET IE, GO & FNCT1 (C1 CONTROL) 
SET Cyc 


sLO EXPECTED 

sREAD THE CSR 

;4CO FAILED TO INTERRUPT (CHECK FOR WCO) 
sGO RESTORE VECTOR 

sINTR oo HERE - FIX STACK SINCE NO ARTI 
3G0 CHECK TUS 


K STA 
+ STATUS EXPECTED 


OF XF 
;RETURN HERE IF STATUS ER - EXPECTED STAT C, 
sCYCLE, READY, IE € FNCT 1 
sGO RESTORE VECTOR 
sRETURN HERE IF WC ER - EXPECTED 0 
sGO RESTORE VECTOR 
sRETURN HERE IF BAR ER - SHOULD = DBUF +2 
160 RESTORE VECTOR 
sRETURN HERE IF OK - SET UP XFER ADRS 


sSET UP DBR ADRS 
sDATA ER - MEM CONTAINS WRONG DATA 
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000004 
012737 
004537 
005336 
012777 
012777 
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010116 


000010 
010076 


010322 
177470 
015364 
000000 


016202 
070707 
174332 
001124 


001526 
010116 


000010 
010076 


177470 
015364 


001160 


174454 
174450 


174440 
174432 
001122 
001124 
001126 
1744C2 


001120 
001124 
001126 
001126 


001122 


001160 


174252 
174246 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


4$: 
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1$ 
PC .RSTVEC 


sGO RESTORE VECTOR 

sRETURN HERE ON GOOD DATA - NOW COM PATRN 
sKEEP TRACK OF COMPLEMENT 

100 COMPLEMENT OF THIS FLOATING ZERO IF 0 
sCOMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT 
sKEEP LSB SET 

sAGAIN TILL ZERO BIT IN CARRY 

sGO RESTORE VECTOR 


3 § OO 006000606 066600000660 06 6606006600606 0606000 0006660660046 66606060066 


s*TEST 21 


TST21: 


1$: 


2s: 


SCOPE 


TEST 200 “DATI” NPR TRANSFERS (BURST MODE) 
3 FOROROEOEE OEE EEESEEEEEDOEEEEEEREREREEEEEEEEEESESEDEDEDEEELERES 


#10, $TIMES 
RS .SETVEC 


PC ,.LOBUF 
@-200. , @ORVWCR 
— - BSORVBAR 


#101, @DRVCSR 


| eneenenrminsens 


2 
(SP)+,(SP)+ 
RS .CKSTAT 


@OBUF +616, $GDADR 


#70707, $GODAT 
@ORVOBR, $BDDAT 
aa « $BDDAT 
ORVDBR , $BDADR 


12 
PC ,RSTVEC 


3300 10 ITERATIONS 
sGO SET UP INTERRUPT RETURN 
sRETURN TO 1% ON INTR 
sGO LOAD BUFFER WITH COMPLEMENTING PATRN 
sLOAD WC REG - WILL DO 200 XFERS 
sSET UP CURRENT ADRS 
sENABLE THE INTR 
sSET IE &€ GO 
sSET CYCLE 
sSET UP CSR ADRS 
sLD EXPECTED 
sREAD THE CSR 
sCLR INTR ENABLE 
sWCO FAILED TO INTERRUPT (SNGL CYCL ON COULD CAUSE THIS) 
sGO RESTORE VECTOR 
sINTR RETURNS HERE - FIX STACK SINCE NO RTI 
sGO CHECK STATUS 
sCSR STATUS EXPECTED 
3@ OF XFERS 
sRETURN HERE IF STATUS ER - EXPECTED CYCLE, READY € IE 
3GO RESTORE VECTOR 
sRETURN HERE IF WC ER - EXPECTED 0 
sGO RESTORE VECTOR 
sRETURN HERE IF BAR ER - SHOULD = DBUF +620 
sGO RESTORE VECTOR 
30K - SET UP LAST XFER ADRS WHERE #70707 SHOULD BE 
sLD EXPECTED 
sDBR SHOULD HAVE LAST DATUM 
sCORRECT? 
sBR IF SO 
sSET UP DBR ADRS 
sDATA ER - DBR DID NOT CONTAIN EXPECTED LAST XFER 
3GO RESTORE VECTOR 


5 § 980666806666 6660 06 0666000606 06666000 066000000600 04606466646800808 


s*TEST 22 


TST22: 


SCOPE 


TEST 200 “DATO” NPR TRANSFERS (BURST MODE) 
5 5 OOOO 66 6006600006 06060660000006006000000000000000000000680000008 


#10, $TIMES 
RS ,SETVEC 


@-200. ,8DRVWCR 
@DBUF , BORVBAR 





+300 10 ITERATIONS 
3GO SET UP INTERRUPT RETURN 
sRETURN TO 1$ ON INTR 

sWORD WC REG - WILL DO 200 XFER‘S 
sSET UP CURRENT ADRS 


SEQ 0027 





MAINDEC-11-CVDRA-C DRV118 DMA INTERFACE DIAGNOSTIC 


CVDRAC .Pil 07-MAY-85 09:22 
7077 005254 012777 177377 
7078 005262 106427 000000 
7079 005266 012777 000103 
7080 005274 052777 000400 
7081 005302 013737 001524 
7082 005310 012737 001702 
7083 005316 017737 174202 
7084 005324 042777 000100 
7085 005332 104005 
7086 005334 000416 
7087 005336 022626 
7088 005340 004537 010142 
7089 005344 001702 
7090 005346 000310 
7091 005350 104007 
7092 
7093 005352 000407 
7094 005354 104010 
7095 005356 000405 
7096 005360 104011 
7097 005362 000403 
7098 005364 004737 010444 
7099 005370 104013 
7100 005372 004737 010116 
7101 
7102 
7103 
7104 
7105 005376 
7106 005400 012737 000010 
7107 005406 013737 001524 
7108 005414 004537 010076 
7109 005420 005530 
7110 005422 012700 000010 
7111 005426 005037 001126 
7112 005432 012777 177470 
7113 005440 012777 015364 
7114 005446 106427 000000 
7115 005452 012777 000101 
7116 005460 052777 000400 
7117 005466 005201 
7118 005470 001376 
7119 005472 000240 
7120 005474 005237 001126 
7121 005500 001375 
7122 005502 012737 000700 
7123 005510 C1i7737 174010 
7424 005516 042777 000100 
7125 005524 104005 
7126 005526 000407 
7127 005530 022626 
7128 005532 005300 
7129 005534 001336 
7130 005536 005737 001126 
7131 005542 001401 
7132 005544 104014 


174172 


174000 


18: 


23: 





MACY11 30(1046) 07-MAY-85 09:37 PAGE 62-19 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


a sTHIS WILL BE WRITTEN TO MEM 


#103 ,@ORVCSR 
#400 , BORVCSR 
DRVCSR , $BDADR 
#1702, $GODAT 
GORVCSR, $BDDAT 
- epaamemenne 


2 
(SP)+,(SP)- 
RS ,CKSTAT 


13 
PC .RSTVEC 


SEQ 0028 


sENABLE THE INTR 

sSET IE, FNCT 1 € GO 

sSET CYCLE 

sSET UP CSR ADRS 

sLD EXPECTED 

sREAD THE CSR 

sCLR INTR ENABLE 

sWCO FAILED TO INTERRUPT (SNGL CYCL ON COULD CAUSE THIS) 
sGO RESTORE VECTOR 

sINTR RETURNS HERE - FIX STACK SINCE NO RTI 

:GO CHECK STATUS 

sCSR STATUS EXPECTED 

3@ OF XFERS 

sRETURN HERE IF STATUS ER - EXPECTED STAT C, 
sCYCLE, READY, IE & FNCT 1 

sGO RESTORE VECTOR 

sRETURN HERE IF WC ER - EXPECTED 0 

sGO RESTORE VECTOR 

sRETURN HERE IF BAR ER - SHOULD = DBUF +620 

sGO RESTORE VECTOR 

sRETURN HERE IF OK - NOW GO CHECK DATA 

sRETURN HERE IF DATA ER - DBR CONTAINS WRONG DATA 
sRETURN HERE IF DATA CHECK OK - GO RESTORE VECTOR 


5 § 8800000006060 060006066606 0060006060 0006066600006060646006600006000068 


s*TEST 23 


TST23: 


18: 


53: 


2s: 


33: 


SCOPE 


TEST THAT THE CPU IS LOCKED OUT WITH SINGLE CYCLE OFF 
5 5 OO ROOEEOO6 066 000000000000000600000000000060000000000000080000008 


10, $TIMES 
DRVCSR, $BDADR 
RS ,SETVEC 


#10,R0 

$BDDAT 

@-200. ,@ORVWCR 
= » SORVBAR 


#101 ,8D0RVCSR 
#400, 3ORVCSR 
Ri 
S$ 


$BDDAT 

2s 

#700, $GDDAT 
@ORVCSR, $BDDAT 
as -9DRVCSR 


4$ 
(SP)+,(SP)+ 
RO 





3300 10 ITERATIONS 

;SET UP CSR ADRS 

:GO SET UP INTR RETURN 
sRETURN TO 3$ ON INTR 
300 EIGHT 200 WORD XFER’S 
sUSR $BDDAT AS A COUNTER 
300 200 XFERS (DATI’S) 
sFROM DBUF 

sALLOW AN INTR 

;SET IE € GO 

sSET CYCLE 

sINCREMENT R1 -DDO001 
3;0D0001 


sSTART COUNTING - SHOULD NEVER GET HERE 
sUNTIL 64K 

3LD EXPECTED 

sREAD STATUS 

sCLR IE 

sNO INTERRUPT ON 200 DATI'S 

;GO RESTORE VECTOR 

sFIX STACK SINCE NO RTI 

sDONE 8 TIMES? 

36R IF NOT 

sSHOULD STILL BE ZERO 

3;BR IF SO , 
sBURST MD (SINGLE CYCLE=0) FAILS TO LOCK OUT CPU 





MAINDEC-11-CVDRA-C DRV118 DMA INTERFACE DIAGNOSTIC 
07-MAY-85 09:22 GE 


CVDRAC .P11 


7133 


005546 004737 010116 


013737 


000000 


173576 


010136 


000200 
010076 


010374 
011702 


001160 
001122 


001126 
173702 
173676 


173666 
173660 


001124 
001126 
173626 


001126 


001126 
001124 
001126 


001160 


006114 
006116 


173476 
173466 


173460 
173452 
001122 
001124 


43; 


JSR 


MACY11 30(1046) 07-MAY-85 09:37 PAGE 62-20 
T VALUE FOR SOFTWARE SWITCH REGISTER 


PC .RSTVEC 


sGO RESTORE VECTOR 


8 3 0806666006 060066 66066066060460600600006 6600 60000060060000000006008 


s*TEST 24 


TST24: 


"18: 


2s: 


3$: 


4$: 


S$: 


SCOPE 


TEST THAT THE CPU IS NOT LOCKED OUT WITH SINGLE CYCLE ON 


8 3 800060606 000060 06006600600 000600 00606060060600066006006000000004606 


#10, $TIMES 
DORVCSR , $BDADR 
RS ,SETVEC 


#111, @0RVCSR 
#400 , @DRVCSR 


$BDDAT 
es 


#4710, $GDDAT 
GORVCSR, $BDDAT 
 ciseanenmesaae 


S$ 
CSP)+,(SP)- 
RO 


1$ 

#0, $BDDAT 

43 

15 

@ORVCSR, $BDDAT 

#4710, $GDDAT 

ei hiataeanes 
$ 


7 
PC ,RSTVEC 


+300 10 ITERATIONS 

sSET UP CSR ADRS 

sGO SET UP INTR RETURN 

sRETURN TO 3$ ON INTR 

sD0 EIGHT 200 WORD XFER'S 

sUSE $BDDAT AS A COUNTER 

sD0 200 XFERS (DATI‘S) 

sFROM DBUF 

sALLOW AN INTR 

sSET IE, FNCTS & GO 

sSET CYCLE 

sFREEBEE 

sSTART COUNTING 

sUNTIL 64K - SHOULD INTR BEFORE OVERFLOW 
sLO EXPECTED 

sREAD STATUS 

sCLR IE 

sNO INTERRUPT ON 200 DATI’S (WITH SINGLE CYCLE) 
sGO RESTORE VECTOR 

sFIX STACK SINCE NO RTI 

sDONE 8 TIMES? 

;BR IF NOT 

s$BDDAT SHOULD HAVE BEEN COUNTED 

sBR IF SO 

sCPU APPEARED LOCKED OUT WITH SINGLE CYCLE SET 
sREAD STATUS 


sSTATUS INCORRECT ON XFER WITH SINGLE CYCLE SET 
sGO RESTORE VECTOR 


5 § $066 0600006006 0606060 60606066000 060660040646606400464060046040040004484 


s#TEST 25 
5 5 $886 60 96006006000600 06600006 60000006000000000000006000000000006 


TST2s: 


1$: 


SCOPE 


TEST THAT MAINT MODE CONTROLS FNCT BITS, XFER DIR &€ SINGLE CYCLE 


#200, $TIMES 
RS ,SETVEC 


PC ,LOBUF 1. 
#11702 ,3% 
1,48 

#0 
@OBUF , BORVBAR 
4$ ,ADRVWCR 


3$,$GDDAT 





3300 200 ITERATIONS 
sGO SET UP INTR RETURN 
sRETURN TO 2$ ON INTR 
sGO SET UP DBUF (SPECIAL COM PATTERN) 

33$ CONTAINS EXPECTED STATUS 

34% CONTAINS THE CURRENT XFER NO @ (MAX 8) 
sALLOW INTR 

sSET UP CURRENT ADRS 
sGET XFER @ 

sNEGATE FOR WC 

sSET UP MAINT, IE & GO 
sSET CYCLE 

sSET UP CSR ADRS 

3LD EXPECTED 


* 





SEQ 0029 
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CVORAC .P1il 07-MAY-85 09:22 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0030 
7189 006066 017737 173432 001126 MOV GORVCSR, $BDDAT ;READ STATUS 
7190 006074 042777 000100 173422 BIC #100 ,@ORVCSR sDISABLE IE 
7191 006102 104005 ERROR 5 sNO INTR ON XFER CIN MAINT MD) 
7192 006104 000440 BR 6$ sGO RESTORE VECTOR 
7193 006106 022626 2s: CMP (SP)+,(SP)+ sRETURN HERE ON INTR - FIX STACK SINCE NO RTI 
7194 006110 004537 010142 JSR RS ,CKSTAT sGO CHECK STATUS 
7195 006114 011702 3$: 11702 sTHIS LOCATION WILL CONTAIN EXPECTED STATUS 
7196 006116 000001 4$: 1 sTHIS LOCATION WILL CONTAIN CURRENT XFER @ (MAX 8) 
7197 006120 104007 ERROR 7 sRETURN HERE IF STATUS ER - WILL EXPECT 
7198 sMAINT, COUNT INCREASE OF FNCT € STAT BITS, 
7199 sCYCLE, READY € IE 
7200 006122 000431 BR 6$ sGO RESTORE VECTOR 
7201 006124 104010 ERROR 10 sRETURN HERE IF WC ER - SHOULD BE 0 
7202 006126 000427 BR 6$ 3GO RESTORE VECTOR 
7203 006130 104011 ERROR 11 sRETURN HERE IF BAR ER- 
7204 006132 000425 BR 6$ sGO RESTORE VECTOR 
7205 006134 062737 001002 006114 ADD #1002, 3$ sRETURN HERE IF OK - ADVANCE EXPECTED STATUS LOC 
7206 006142 032737 020000 006114 BIT #61713 ,3% sLOOK FOR OVERFLOW 
7207 006150 001403 BEQ S$ sBR IF NOT 
7208 006152 012737 010700 006114 MOV #10700 ,3$ sFNCT & STAT BITS SHOULD BE ZERO THIS TIME 
7209 006160 005237 006116 S$: INC ay sADVANCE CURRENT XFER @ 
7210 006164 022737 000011 006116 CMP #11,4% sHAVE 10 XFERS BEEN DONE 
7211 006172 001307 BNE 1$ sBR IF NOT - 
7212 006174 004537 010512 JSR RS ,CKDAT1 sNOW GO CHECK DATA 
7213 0C6200 000010 10 3@ OF XFER‘S TO CHECK 
7214 006202 104013 ERROR 13 sRETURN HERE IF DATA ER - (WITH MAINT SET) 
7215 006204 000240 NOP sRESTORE VECTOR NEXT 
Ls 006206 004737 010116 6$: JSR PC .RSTVEC 3GO RESTORE VECTOR 
7218 i § PHRSEESEEE ES O46 6006 060408 000006 06500000006000000000 2000000080008 
7219 s#TEST 26 TEST THAT A DATI FROM A NON-EXISTANT BUS ADRS SETS ‘NEX’ 
7220 j 5 POSSESSES 66060608 0440000004 0600 000600 00000000000000000800008 
7221 006212 000004 TST26: SCOPE 
7222 006214 012737 000100 001160 MOV #100, $TIMES 3300 100 ITERATIONS 
7223 006222 012700 000002 MOV #2,R0 sRO WHEN ZERO SAYS CLR ‘NEX’ WITH RESET 
7224 006226 004537 010076 1$; JSR RS ,SETVEC sGO SET UP INTERRUPT RETURN 
7225 006232 006324 2$ sRETURN TO 2$ ON TIMEOUT INTR 
7226 006234 012777 177777 173256 MOV @-1, BORVWCR sSET UP FOR ONE XFER’S 
7227 006242 012777 160000 173252 MOV #160000, @0RVBAR ;SET UP CA TO 160000 (RESERVED) 
7228 006250 106427 000000 MTPS 0 sALLOW INTR 
7229 006254 012777 000161 173242 MOV #161,8DRVCSR sSET IE, XAD 17,16 & GO 
7230 006262 052777 000400 173234 BIS #400, @DRVCSR sSET CYCLE 
7231 006270 013737 001524 001122 MOV DRVCSR,$BDADR ;SET UP CSR ADRS - SHOULD NEVER GET HERE 
7232 006276 012737 140760 001124 MOV #140760,$GDDAT ;LD EXPECTED 
7233 006304 017737 173214 001126 MOV SORVCSR,$BDDAT ;GIVE THEM THE STATUS 
7234 006312 042777 000100 173204 BIC #100, @DRVCSR ;CLR IE 
7235 006320 104016 ERROR 16 sNEX FAILED TO CAUSE AN INTERRUPT 
7236 006322 000521 BR 7$ sGO RESTORE VECTOR 
7237 006324 022626 2s: CMP (SP)+,(SP)+ sSHOULD INTR RETURN HERE - FIX STACK 
7238 006326 017737 173172 001126 MOV SORVCSR,$BDDAT ;READ THE CSR 
7239 006334 012737 140760 001124 MOV #140760,$GDDAT ;LD EXPECTED 
7240 006342 023737 001124 001126 CMP $GDDAT,$BDDAT  ;CORRECT? 
7241 006350 001405 BEQ 33 ;8R IF SO 
7242 006352 013737 001524 001122 MOV DRVCSR,$BDADR ;SET UP CSR ADRS 
7243 006360 104016 ERROR 16 sSTATUS ER - EXPECTED 


7244 sER, NEX, CYCLE, READY, IE, XAD17 & XAD16 








Ss ee 
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CVORAC .P11 07-MAY-85 09:22 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0031 
7245 006362 000501 BR 7$ sGO RESTORE VECTOR 
7246 006364 017737 173130 001126 33: MOV GORVWCR, $BDDAT ;READ WORD COUNT 
7247 006372 012737 177777 001124 MOV @-1, $GDDAT sSHOULD STILL HAVE -1 
7248 006400 023737 001124 001126 CMP + mae $BDDAT ;CORRECT? 
7249 006406 001405 BEQ sBR IF SO 
7250 006410 013737 001520 001122 MOV DRVWCR., $DADR sSET UP WCR ADRS 
7251 006416 104010 ERROR 10 sWC INCREMENTED ON A TIMEOUT ER 
7252 006420 000462 BR 7$ sGO RESTORE VECTOR 
7253 006422 017737 173074 001126 43: MOV GORVBAR, $8DDAT ;READ BUFFER ADRS 
7254 006430 012737 160000 001124 MOV #160000, $GDDAT ;SHOULD NOT HAVE INCREMENTED 
7255 006436 023737 001124 001126 CMP $GDDAT,$BDDAT  ;CORRECT? 
7256 006444 001405 BEQ 5$ sBR IF SO 
7257 006446 013737 001522 001122 MOV DRVBAR,$BDADR ;SET UP BAR ADRS 
7258 006454 104011 ERROR ii sBAR_ INCREMENTED ON A TIMEGUT ER 
7259 006456 000443 BR 7$ sGO RESTORE VECTOR 
7260 006460 005300 S$: DEC RO sKEEP TRACK ON HOW TO CLR 
7261 006462 001422 BEQ 6$ sBR IF CLR BY RESET 
7262 006464 042777 040000 173032 BIC #40000,@DRVCSR ;WRITE NEX TO ZERO 
7263 006472 017737 173026 001125 MOV @ORVCSR,$BDDAT ;READ CSR 
7264 006500 012737 000760 001124 MOV #760, $GDDAT sLO EXPECTED 
7265 006506 023737 001124 001126 CMP $GDDAT,$BDDAT  ;CORRECT? 
7266 006514 001644 BEQ 1$ sBR_IF SO + REPEAT TEST FOR RESET TEST 
7267 006516 013737 001524 001122 MOV DRVCSR,$BDADR ;SET UP CSR ADRS 
7268 006524 104016 ERROR 16 :'NEX’ FAILED 10 WRITE TO ZERO 
7269 0C6526 000417 BR 7$ 60 RESTORE VECTOR 
7270 006530 000005 6$: RESET sISSUE BUS RESET 
7271 006532 017737 172766 001126 MOV @BORVCSR, $BDDAT ;READ THE CSR 
7272 006540 012737 000200 001124 MOV #200, $GDDAT sEXPECT ONLY READY 
7273 4006546 023737 001124 001126 CMP $GDDAT,$BDDAT  ;CORRECT? 
7274 006554 001404 BEQ 7$ sBR IF SO 
7275 006556 013737 001524 001122 MOV “Yee $BDADR SSET UP CSR ADRS 
7276 006564 104016 ERROR sRESET FAILED TO CLR ‘NEX’ 
7277 006566 004737 010116 7$: JSR PC, RSTVEC sGO RESTORE VECTOR 
7278 5 § POREEEEE DEES OE OS OS OS 06000006 000008 0600000006 0000000000004000084 
7279 s#TEST 27 TEST 200 NPR TRANSFERS IN MAINT MODE 
7280 jj ERE EEEEEE EEE OE ES OS 0660000604 00000000600000000000000004 4000088 
7281 006572 000004 TST27: SCOPE 
7282 006574 012737 000010 001160 MOV #10, $STIMES 33D0 10 ITERATIONS 
7283 006602 004537 010076 JSR RS, SETVEC sGO SET UP INTR RETURN 
7284 006606 006720 es sRETURN TO 2$ ON INTR 
7285 006610 004737 010374 JSR PC ,LOBUF 1 sGO SET UP DBUF (SPECIAL COM PATTERN) 
7286 006614 012777 015364 172700 MOV @OBUF,,@DRVBAR ;SET UP CURRENT ADRS 
7287 006622 012777 177470 172670 MOV #-200.,@DRVWCR ;SET UP FOR 200 XFER'S 
7288 006630 106427 000000 MTPS #0 sALLOW INTR 
7289 006634 012777 010101 172662 MOV #10101,9DRVCSR ;SET MAINT, IE & GO 
7290 006642 052777 000400 172654 BIS #400 ,@ORVCSR sSET CYCLE 
7291 006650 012737 000000 001126 MOV #0, $BDDAT sSET UP A COUNTER 
7292 006656 005237 001126 1$: INC $BDDAT sCOUNT AWAY 
7293 006662 001375 BNE 1$ sWAIT TILL DONE - SHOULD INTR BEFORE OVFLO 
7294 006664 013737 001524 001122 MOV DRVCSR,$BDADR  ;SET UP CSR ADRS 
7295 006672 012737 010700 001124 MOV #10700,$GDDAT  ;LD EXPECTED 
7296 006700 017737 172620 001126 MOV SORVCSR,$BDDAT ;READ STATUS 
7297 006706 042777 000100 172610 BIC #100, 8DRVCSR sDISABLE IE 
7298 006714 104005 ERROR 5 sNO INTR AFTER 200 MAINT MODE XFER’S 
7299 006716 000420 BR 3$ sGO RESTORE VECTOR 
7300 006720 022626 2s: CMP (SP)+,(SP)+ sRETURN HERE ON INTR - FIX STACK SINCE NO RTI 
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CVDRAC .P1i1 07-MAY-85 09:22 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0032 
7301 006722 004537 010142 JSR RS ,CKSTAT sGO CHECK STATUS 
7302 006726 010700 10700 sEXPECTED STATUS 
7303 006730 000310 200. 3@ OF XFERS 
7304 006732 104007 ERROR 7 sRETURN HERE IF STATUS ER - EXPECTED MAINT, 
7305 sCYCLE, READY € IE 
7306 006734 000411 BR 3$ sGO RESTORE VECTOR 
7307 006736 104010 ERROR 10 sRETURN HERE IF WC ER - SHOULD BE 0 
7308 006740 000407 BR 3$ sGO RESTORE VECTOR 
7309 006742 104011 ERROR i1 sRETURN HERE IF BAR ER - SHOULD = DBUF +620 
7310 006744 000405 BR 3$ sGO RESTORE VECTOR 
7311 006746 004537 010512 JSR RS ,CKDAT1 sRETURN HERE IF OK - NOW GO CHECK DATA 


7312 006752 000310 200. 3@ OF XFER’S TO CHECK 

7313 006754 104013 ERROR 13 sRETURN HERE IF DATA ER - (WITH MAINT SET) 
7314 006756 000240 NOP sRESTORE VECTOR NEXT 

7315 006760 004737 010116 3$: JSR PC ,RSTVEC sGO RESTORE VECTOR 

7316 5 5 PORE EEEEES EE EOO4 4606 06 60 06 04 06 000006000000000600000000000000088 

7317 s#TEST 30 TEST A 200 WORD MAINT MODE XFER TO EACH ADDITIONAL AVAILABLE 4K 
7318 5 5 ROOOEEREE EE OE 664644066000 0606 0600000606 0000000000000006000000088 

7319 006764 000004 TST30: SCOPE 

7320 006766 012737 000005 001160 MOV 5, $TIMES 3300 5 ITERATIONS 

7321 006774 004537 010076 JSR RS ,SETVEC sGO SET UP INTR RETURN 

7322 007000 007134 3$ sRETURN TO 3$ ON INTR 

7323 007002 005037 001542 CLR DBUFP sGET LOWEST BUFFER ADRS 

7324 007006 062737 020000 001542 1%: ADD #20000 , DBUFP sPOINT TO NEXT 4K 

7325 007014 023737 001540 001542 CMP CORSZ, DBUFP sIS THE 4K THERE? 

7326 007022 001465 BEQ 4$ 3BR IF NOT 

7327 007024 004737 010374 JSR PC ,LOBUF 1 sGO SET UP SPECIAL COMPEMENT PATTERN 

7328 007030 013777 001542 172464 MOV DBUFP,@DRVBAR ;SET UP BUFFER ADRS 

7329 007036 012777 177470 172454 MOV #-200.,Q@DRVWCR ;SET UP FOR 200 XFER’S 

7330 007044 106427 000000 MTPS #0 sALLOW INTR 

7331 007050 012777 010101 172446 MOV #10101,QDRVCSR ;SET MAINT,IE & GO 

7332 007056 052777 000400 172440 BIS #400 , @ORVCSR sSET CYCLE 

7333 007064 012737 000000 001126 MOV #0, $BDDAT sSET UP A COUNTER 

7334 007072 005237 001126 2s: INC $BDDAT sCOUNT AWAY 

7335 007076 001375 BNE 2s sSHOULD ALWAYS INTR FROM THIS LOOP 

7336 007100 013737 001524 001122 MOV DRVCSR,$BDADR ;SET UP CSR ADRA 

7337 007106 012737 010700 001124 MOV #10700,$GDDAT  ;LD EXPECTED 

7338 007114 017737 172404 001126 MOV @ORVCSR,$BDDAT ;READ CSR 

7339 007122 042777 000100 172374 BIC #100,@DRVCSR . ;DISABLE IE 

7340 007130 104005 ERROR 5 sNO INTR AFTER 200 MAINT MODE XFER‘S 

7341 007132 000421 BR 4g sGO RESTORE VECTOR 

7342 007134 022626 3$: CMP (SP)+,(SP)+ sRETURN HERE ON INTR - FIX STACK SINCE NO RTI 
7343 007136 004537 010142 JSR RS,CKSTAT :GO CHECK STATUS 

7344 007142 010700 10700 sEXPECTED STATUS 

7345 007144 000310 200. 3@ OF XFER‘S 

7346 007146 104007 ERROR 7 sRETURN HERE IF STATUS ER - EXPECTED MAINT, 
7347 sCYCLE, READY € IE 

7348 007150 000412 BR 4g sGO RESTORE VECTOR 

7349 007152 104010 ERROR 10 sRETURN HERE IF WC ER - SHOULD = 0 

7350 007154 000410 BR 4s sGO RESTORE VECTOR 

7351 007156 104011 ERROR 11 sRETURN HERE IF BAR ER - SHOULD = DBUFP+620 
7352 007160 000406 BR 4$ sGO RESTORE VECTOR 

7353 007162 004537 010512 JSR RS ,CKDAT1 sRETURN HERE IF OK - NOW GO CK DATA 

7354 007166 000310 200. 3@ OF XFER‘S TO CK 

7355 007170 104013 ERROR 13 sRETURN HERE IF DATA ER 

7356 007172 000401 BR 4s sGO RESTORE VECTOR 




















CVORAC .Pil 


000704 
012737 
004737 


013777 


015364 001542 


010116 


171722 
010076 
177777 


010142 


171566 
172136 
001124 


001526 
001150 


015364 


010116 
007656 


001544 
010076 
177777 


001124 
001126 
001126 


001122 
001120 


001542 


172040 
001542 
172026 


4$: 


MAINDEC-11-CVDRA-C ORV11B8 DMA INTERFACE DIAGNOSTIC 
07-MAY-85 09:22 


MACY11 30(1646) 07-MAY-85 09:37 PAGE 62-24 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


sTRY NEXT BANK 
sRESTORE BUFFER ADRS TO LOWEST 4K 
sGO RESTORE VECTOR 


3 § $O060006 60006060 0000040660 60460 01:6460604 06 000660060600460600000460004608 


s#TEST 31 


TST31: 


1018: 


1$: 


2s: 


SCOPE 


TEST THE ADDRESS (1/0) ABILITY TO THE TTY PRINTER CSR 
3 CROREREE EEE E446 0606 06 00000000000000000000000000604000000000008 


SSWR 
AL TERN 
RS ,SETVEC 


@-1, @ORVWCR 


GORVCSR, $BDDAT 
= -80RVCSR 


2s 
(SP)+,(SP)+ 
RS ,CKSTAT 


$ 
S$ TPS, $GDDAT 
BORVOBR, $BDDAT 
amas » $B0DAT 


DRVDBR , $BDADR 
$TPS, $GDADR 


20 

@0BUF , OBUFP 
PC ,RSTVEC 
NXDEV 


sKOF 11-8? 

sIF YES,GO TO THE NEXT SUBTEST 

sGO SET UP INTR RETURN 

sRETURN TO 1% ON INTR 

sSET UP WC - 1 XFER 

sSET UP BUFFER ADRS TO PRINTER CSR ADRS 
sSET UP BUFFER ADRS - FROM PRINTER CSR 
sALLOW INTR 

sZERO THE DBR 

sSET IE, XADi7 & XAD16, & GO 

sSET CYCLE 

sSET UP CSR ADRS 

sLD EXPECTED STATUS 

sREAD THE CSR 

sDISABLE IE 

sNO INTR ON 1 WO XFER FROM XCSR 

sGO RESTORE VECTOR 

sINTR RETURNS HERE - FIX STK SINCE NO RTI 
sGO CK STATUS 

sCSR EXPECTED STATUS 

s@ OF XFER'S 

sRETURN HERE IF STATUS ER - EXPECTED CYCLE, 
sXAD17 & XAD16, RDY € IE 

sGO RESTORE VECTOR 

sRETURN HERE IF WC ER - EXPECTED 0 

sGO RESTORE VECTOR 

sRETURN HERE IF GAR ER - SHOULD = XCSR+2 
sGO RESTORE VECTOR 

sRCTURN HERE IF OK - GET XCSR CONTENTS 
sREAD DBR 

sCORRECT? 

;BR IF SO 

sSET UP DBR ADRS 

sGET ADRS OF DATA (XCSR) 

sDATA ER FROM TTY PRINTER CSR 

sRESTORE BUFFER ADRS TO LOWEST 4K 

sGO RESTORE VECTOR 

sIGNORE NEXT “SUBTEST 


errr rrr rr tititit titi t tt ttt tT 
sIN CASE OF KDF11-B TEST SOME SPECIFIED I/0 PAGE 

j PERE EE EE OE EGOS ESOS OS 00000004 000000000000000000 004000400008 0E SEE 
ALTERN: TST 


BEQ 


IOPAGE 
NXDEV 

RS ,SETVEC 
#-1, BORVWCR 


IOPAGE , DBUFP 
IOPAGE , BORVBAR 


31/0 TRANSFER DESIRED? 

sIF NOT, SKIP THE TEST 

sGO SET UP INTR RETURN 

sRETURN TO 1$ ON INTR 

sSET UP WC - 1 XFER 

sSET UP BUFFER ADRS TO I/O CSR ADRS 
sSET UP BUFFER ADRS - FROM I/0 CSR 






























































7413 
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010142 


171736 
171712 
001124 


001526 
001544 


015364 
010116 
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001124 
001126 
001126 


001122 
001120 


001542 
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T VALUE FOR SOFTWARE SWITCH REGISTER 


MTPS 60 
CLR @ORVDBR 
MOV #161, 98DRVCSR 
BIS #400 ,,@DRVCSR 
MOV DRVCSR , $BDADR 
MOV #760, $GDDAT 
MOV SORVCSR, $BDDAT 
BIC #100, 30RVCSR 
ERROR 5 
BR 2s 
1$: CMP (SP)+,(SP)+ 
JSR RS ,CKSTAT 
760 
1 
ERROR v 
2$ 
ERROR 10 
R 2s 
ERROR ii 
BR 2s 
MOV SIOPAGE , $GDDAT 
MOV @ORVOBR, $BDDAT 
CMP $GDDAT , $BDDAT 
BEQ 2s 
MOV DRVDBR , $BDADR 
MOV IOPAGE , $GDADR 
ERROR 20 
2s: MOV @DBUF , OBUFP 
JSR PC ,RSTVEC 


sALLOW INTR 

sZERO THE DBR 

sSET IE, XAD17 & XAD16, & GO 

sSET CYCLE 

sSET UP CSR ADRS 

sLD EXPECTED STATUS 

sREAD THE CSR 

sDISABLE IE 

sNO INTR ON 1 WD XFER FROM XCSR 

sGO RESTORE VECTOR 

sINTR RETURNS HERE - FIX STK SINCE NO RTI 
sGO CK STATUS 

sCSR EXPECTED STATUS 

3@ OF XFER'S 

sRETURN HERE IF STATUS ER - EXPECTED CYCLE, 
sXAD17 & XAD16, ROY & IE 

sGO RESTORE VECTOR 

sRETURN HERE IF WC ER - EXPECTED 0 

sGO RESTORE VECTOR 

sRETURN HERE IF BAR ER - SHOULD = XCSR+2 
sGO RESTORE VECTOR 

sRETURN HERE IF OK - GET XCSR CONTENTS 
sREAD DBR 


ADRS 
sGET ADRS OF DATA (XCSR) 
sDATA ER FROM TTY PRINTER CSR 
sRESTORE BUFFER ADRS TO LOWEST 4K 
sGO RESTORE VECTOR 


Eb ducecachdacadndpdndecnchenchenteeptennne tide didi titt Lett ttt Tt TT TT TT TTT ttt 
sDON'T REPORT ‘END OF PASS' UNTIL ALL SELECTED ORV11'S HAVE BEEN TESTED 
jj CORRES EEEE ESOS ESOS OO OS 040460004608 04646 060600 0460000 000000000000408 


NXDEV: SCOPE 

NXDEV1: CLC 
ROR DMAP 
BEQ s€0P 
ADD #10, DRVWCR 
ADD #10, DRVBAR 
ADD #10,DRVCSR 
ADD #10, DRVDOBR 
ADD #4 ,,ORVCTO 
ADD #4 ,ORVCT2 
INC $UNIT 
BIT #1 ,OMAP 
BEQ NXDEV1 


JMP RESTRT 
-SBTTL END OF PASS ROUTINE 


5 § OOOO O0 604696 666060606000000000000006000606060606000000000000088 
s*INCREMENT THE PASS NUMBER ($PASS) 
s#TYPE “END PASS @XXXXX" (WHERE XXXXX 


s#IF THERES A MONITOR GO TO IT 


s#IF THERE ISN'T JUMP TO START1 


sCLR CARRY 

sLOOK FOR NEXT 

sBR IF ALL TESTED 

sOFFSET BASE BUS ADRS TO NEXT ORV11B 
° 


6 

; 

sOFFSET VECTOR ADRS TO NEXT 
; 

sCOUNT DEVICE 

sIS IT SELECTED? 


sBR IF NOT 
sTEST NEXT 


IS A DECIMAL NUMBER) 
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CVDRAC .P11 07-MAY-85 09:22 END OF PASS ROUTINE SEQ 0035 
SEOP: 
7471 007756 005037 001102 CLR $TSTNM 3;ZERO THE TEST NUMBER 
7472 007762 005037 001160 CLR $TIMES 33;ZERO THE NUMBER OF ITERATIONS 
7473 007766 005237 001202 INC $PASS ss;INCREMENT THE PASS NUMBER 
7474 007772 042737 100000 001202 BIC #100000,$PASS ;;DON’T ALLOW A NEG. NUMBER 
7475 010000 005327 DEC (PC)+ 33LOOP? 
7476 010002 000001 SEOPCT: .WORD 1 
7477 010004 003022 BGT $DOAGN 33;YES 
7478 010006 012737 MOV (PC)+, @CPC)+ ssRESTORE COUNTER 
7479 010010 000001 SENDCT: .WORD 1 
7480 010012 010002 $EOPCT 
7481 010014 104401 010061 TYPE » SENDMG +3TYPE “END PASS @” 
7482 010020 013746 001202 MOV $PASS, -(SP) 3sSAVE $PASS FOR TYPEOUT 
7483 010024 104405 TYPOS 3:GO0 TYPE--DECIMAL — ty WITH SIGN 
7484 010026 104401 010056 TYPE » SENULL 3s TYPE A NULL CHARACTE 
7485 010032 013700 000042 $GET42: MOV 0042 ,RO 3;GET MONITOR RODRESS 
7486 010036 001405 BEQ $DOAGN :s;BRANCH IF NO MONITOR 
7487 010040 000005 RESET 3;CLEAR THE WORLD 
7488 010042 004710 $ENDAD: JSR PC,CRO) 33GO0 TO MONITOR 
7489 010044 000240 NOP 33SAVE ROOM 
7490 010046 000240 NOP 33FOR 
7491 010050 000240 NOP ssACTI1L 
7492 010052 $DOAGN: 
7493 010052 000137 JMP OC PC )+ 3 sRETURN 
7494 010054 002012 $RTNAD: .WORD STARTL 
7495 010056 377 377 000 S$ENULL: .BYTE -1,-1,0 pon. CHARACTER STRING 


7496 010061 015 042412 042116 $SENDMG: .ASCIZ <15><i2>/END PASS @ 
010066 050040 051501 020123 
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010114 


010116 
010122 
010130 
010134 
010140 


106427 
012577 
012777 
000205 


005077 
013777 
005077 
106427 
000207 


017737 
042777 
012537 
023737 
001406 
013737 
062705 
000205 


000200 
171422 
000200 


171416 


171400 
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07-MAY-85 09:22 OF PASS ROUT 


-SBTTL PROGRAM SUBROUTINES 


RSTVEC: CLR 


bj SO OSE6 0600600606 060000 00000000000000060000000000000000008000008 

sTHIS ROUTINE CHECKS ON ALL DATA TRANSFERS FOR: CORRECT STATUS, 

sCORRECT WORD COUNT & CORRECT BUFFER ADDRESS - THE EXPECTED DATA IS 

sSUPPLIED IN THE CALL +2 & +4 - THE RETURN IS TO +22 IF NO ERRORS 

sDETECTED - IF AN ERROR IS DETECTED THE RETURN IS TO THE APPROPRIATE ERROR EMT 
j § PRSSRSEEOE OS 46 04 0600000046 0600000000000006000000000000000040008 


CKSTAT: MOV 


1$: 


23: 


BIC 


bj OOORESEEOEEE 4 060000 06 000400000000 00000600000000000000005000008 
sTHIS ROUTINE SETS THE PRIORITY LEVEL FOR NO INTERRUPT - 

sSETS UP THE DRV118 INTERRUPT TO RETURN ON INTERRUPT 

sTO THE ADDRESS INDICATED ((RS)) BY THE CALL +2 

jj PERSE OE EN EE O46 06006606 06 06 000000 00000600000000000000000080 00008 
SETVEC: MTPS 
MOV 
MOV 
RTS 


§ § OORSOSOE OE 6006 06060000 06 64 0600000000000000000000000000000000008 
sTHIS ROUTINE CLEARS THE ORV118 CSR - RESTORES THE DRV116 
sINTERRUPT VECTOR TO A HALT - RAISES PRIORITY LEVEL 

5 § OO SSO606 0066060600 000066 0400000000000600000000000060000000008008 


#200 
CRS)+, @ORVCTO 
a 


SBORVCSR 


DRVCT2 ,@ORVCTO 


@ORVCT2 
#200 
PC 


@ORVCSR, $BDDAT 
#100 ,@DRVCSR 
CRS)+, $GDDAT 

> tee eee 
ORVCSR , $BDADR 
#2,R5 

RS 
irae 
ORVWCR , $BDADR 
$GODAT 

6 ,R5 

RS 

CRS), $GDDAT 
$GDDAT 

DBUFP, $GDDAT 
SORVBAR, $BDDAT 
#8 ITOO, $BDDAT 
geeees ,soneae 


DRVBAR , $8DADR 
#12,R5 
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SEQ 0036 




















sSET UP FOR NO INTERRUPT 

sSET UP INTR RETURN ADRS 

eat PRIORITY LEVEL AT TOP ON INTR 
H 


















s;CLR STATUS & CONTROL 
sPOINT VECTOR TO HALT 
sSET UP HALT 

sRAISE PRIORITY LEVEL 
sEXIT 














sREAD THE STATUS 
sDISABLE THE IE BIT 
sSET UP EXPECTED STATUS 
sCORRECT? 

3BR IF SO 

sSET UP CSR ADRS 

sPOINT TO THE CSR ER 
sEXIT HERE ON STATUS ERROR 
sGET WC 

3B8R IF ZERO 

sSET UP WCR ADRS 
sEXPECTED 0 

sPOINT TO THE WCR ER 
sEXIT HERE ON WCR ER 
sGET XFER @ 

sCONVERT TO WORD 

sPOINT TO LAST XFER +2 
3sGET BA 

3sD0N'T WANT BITOO 






















: 
sSET UP BAR ADRS 
sPOINT TO BAR ER 
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010312 
7556 010314 
7557 010320 








7579 010370 
7580 010372 


7588 010374 


000205 
062705 
000205 


012703 


013703 
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000016 


015364 
177776 


016202 
070707 


016202 


001542 


000620 
177776 
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PROGRAM SUBROUTINES 







RTS RS sEXIT HERE ON BAR ER 
38: ADD #16,R5 sALL OK - POINT TO GOOD EXIT 
RTS RS sEXIT HERE IF NO ERRORS 








§  PRORSSASESES ES EEEEEDESEEEEEESEEEEREEEERESESEEEESESEEEEEDEEEEEE 
sTHIS ROUTINE LOADS ‘OBUF' WITH A FLOATING ZERO/ONE PATTERN 

sFOR 199 LOCATIONS - THE LAST LOCATION IS LOADED WITH THE 

3@70707 WHICH SHOULD BE THE DATA WORD AVAILABLE IN THE DBR 

sAT THE COMPLETION OF A 200 WORD TRANSFER 

j POSSESSES ESESSEESESEEERES OSES EEEEESESESEEEEEDESESEEEEEEDEEEE 





















LOBUF: MOV @OBUF , R3 sGET BUFFER ADRS 
1$: MOV #177776,R4 sSET UP FLOATING ZERO PATRN 
2$: MOV R4,CR3)+ sLOAD IT (FLOATING 0) 
COM R4 sMAKE INTO FLOATING 1 
CMP @OBUF +616,R3 sAT END OF BUFFER? 
BNE as s8R IF NOT 
3%: MOV #70707 ,CR3) sLOAD LAST DATVAR (SPECIAL) 
RTS PC sGET OUT 
ae: MOV R4,CR3)> sLOAD IT CFLOATING 1) 
CMP @OBUF +616,R3 sAT END OF BUFFER? 
BEQ 3% sBR IF SO 
COM R4 + ™ TO FLOATING ZERO 
ASL R4 sSHIFT LEFT 
INC R4 sKEEP LSB SET 
BCC i$ sGO RESET FLOATING PATRN 
BR 2$ sGO LOAD NEXT PATRN 







} i SESSSSSSESEESSSEEEsEssessesensasesssesssssseseessssssseseseses 
sTHIS ROUTINE LOADS ‘DBUF' WITH A UNIQUE FLOATING ZERO/ONE PATTERN 
3€177776 ,0,1,0,177775,0,2,0,177773,0,4,0,177767,0,10,0 ETC.) 

s1T IS USED WITH MAINT BIT SET (DATI/DATO SEQUENCE) - 200 LOCS 
sARE LOADED WITH THIS PATTERN 

§ § OOOO O6 060006 $6 0606006006000000000006 00000000 0008000080 0b EE REES 















LOBUF1: MOV DBUFP,R3 sGET BUFFER ADRS 
MOV R3,RS sSAVE IN RS 
ADD #620 ,.RS sPOINT TO END OF BUFFER 
1%: MOV #177776,R4 sSET UP FLOATING ZERO PATRN 
2%: MOV R4,CR3)> sLOAD IT CFLOATING 0) 
CLR CR3)-+ sZERO NEXT 
COM R4 sSET UP FLOATING 1 
MOV R4,CR3)+ sLOAD IT 
CLR CR3)+ sZERO NEXT 








T OUT 
34; COM R4 :BACK TO FLOATING ZERO 
ASL R4 sSHIFT LEFT 
INC R4 sKEEP LSB SET 
Bcc 1$ sGO RESET FLOATING PATRN 
BR ra) sGO FLOAT NEXT PATRN 






$5 OOSEREEESESEESSE SESE SEES EEEEEEEEESEEEEDEERESEEEEREEEEEEEEEEEES 
sTHIS ROUTINE CHECKS 200 LOCATIONS IN “DBUF” FOR GOOD TRANSFERED 
sDATA (#177377) ON ‘DATO’ TRANSFERS - IF AN ERROR IS DETECTED 

sTHE RETURN IS TO CALL +2 - IF NO ERROR THE RETURN IS TO CALL +4 
§ § $8 66060600 666600000006 00 0000006000600000000000000000000000000808 
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001526 001122 


001542 
177776 


24 
001526 001122 


CKDAT: 
is; 


23: 


@OBUF ,R1 
— (R1i)+ 
DRVDBR , $BDADR 
-C(R1), $8D0DAT 
os . §GDADR 
— +620,R1 


1 
#2 ,(SP) 
PC 
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’ 
sSET UP DBR ADRS 

sGET ACTUAL DATA XFERED 

sGET MEMORY ADRS 

sRETURN TO ERROR 

sAT END OF ‘OBUF‘'? 

38R IF MORE 

sADJUST STACK FOR GOOD RETURN 
sGET OUT 


bj SSSSSSSESSSSEEESSEESES EES ESEEERESESERESEESEEEELEDEEEEEDEEEEEEE 
sTHIS ROUTINE CHECK 200 LOCATIONS IN ‘DBUF’ FOR GOOD TRANSFERED 
sDATA (177776,177776,1,1,177775,17777S ,2,2,177775,177773,E1C. ) 


sON MAINT MODE TRANSFERS - THE 


NUMBER OF CHECKS REQUIRED IS INDICATED 


sBY THE CALL +2 - IF AN ERROR IS DETECTED THE RETURN IS TO CALL +4 - 
sIF NO ERROR THE RETURN IS TO CALL +10 

§ § O0606606000000060006 00004006 06000000000000000000000800000000000 
CKDAT1: ~~ 


18; 
23: 


43; 


Vv 
MOV 
CLR 
CMP 
BNE 
CMP 
BNE 
SUB 
BGT 
AOD 
RTS 

“MOV 
MOV 
MOV 
MOV 
RTS 
COM 
COM 
BNE 
ASL 
INC 
Bcc 
BR 


CRS5)+,RO 


sGET @ OF CHECKS 
sGET BUFFER ADRS 
sSET UP FLOATING ZERO PATRN 
sR3_ SAYS WHEN TO SHIFT PATRN 
sDATA OK? 
s68R IF NOT 
sDATA WRITTEN OK? 
s6R IF NOT . 
sACCOUNT FOR TWO ADRS‘S 
R MORE 


’ 
sGET BAD DATA 

sGET MEM ADRS 

sLD EXPECTED DATA 

sSET UP DBR ADRS 

sRETURN TO ERROR 

sNOW EXPECT COMPLEMENT 
sTIME TO SHIFT? 

s8R IF NOT 

sSHIFT LEFT 

sKEEP LSB SET 

3GO RESET FLOATING PATRN 
300 NEXT 
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001157 


001214 
001215 


001215 
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-SBTTL SYSMAC ROUTINES 
-SBTTL TYPE ROUTINE 


§  POCROSSSEEES EE SEEEESEEESESSEESEEDEEESESEEEEEEEEDEDEEEEEEDEEEOES 
s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
INE WILL INSER OF NULL CHARACT 


s*THE ROUT T A NUMBER ERS AFTER A LINE FEED. 
s@NOTE1: AINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
s@NOTE2: FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
s@NOTES: CONTAINS THE CHARACTER TO FILL AFTER. 
38 
s*CALL: 
s#1) USING A TRAP INSTRUCTION 
oo. TYPE MESADR ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
3% 
ge TYPE 
34 MESADR 
3% 
$TYPE: TSTB $TPFLG 33IS THERE A TERMINAL? 
BPL is 330R IF 
_ Se ssHALT HERE IF NO TERMINAL 
3 
is: MOV RO, -CSP) ssSAVE RO 
MOV G2(SP),RO 3sGET ADORESS OF ASCIZ STRING 
CMPB @APTENV, 8 IN APT MODE 
BNE 62% NO.GO CHECK FOR APT CONSOLE 
6ITB @APTSPOOL,, SENVM ;;SPOOL MESSAGE TO 
BEQ $ 33N0,GO CHECK FOR OL. 
MOV RO .618 33SE MESSAGE ADDRESS FOR APT 
JSR PC, SATYS ssSPOOL MESSAGE TO APT 
618: .- WORD 3 sMESSAGE 
62%: BITB @APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
60% ssYES,SKIP TYPE OUT 
2%: MOVE CRO)+, -CSP) 3sPUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4g 336R IF IT ISN’'T THE TERMINATOR 
TST (SP )- 3sIF TERMINATOR POP IT OFF THE STACK 
60%: MOV CSP)+,RO ssRESTORE RO 
3%: ADD #2 .¢ ssADJUST RETURN PC 
RTI 3 sRETURN 
4s: oe @HT, CSP) ssBRANCH IF <HT> 
ae + leat ssBRANCH IF NOT <CRLF> 
TST (SP)-+ 3sPOP <CR><LF> EQUIV 
TYPE . §CRLF ss TYPE A CR AND LF 
CLRB $CHARCNT ssCLEAR CHARACTER COUNT 
BR 26 3:GET NEXT CHARACTER 
5%: JSR PC, $TYPEC 3:G0 TYPE THIS CHARACTER 
6$: CMPB SFILLC.CSP)o 33IS IT TIME FOR FILLER CHARS.? 
BNE r-4 s3sIF NO GO GET NEXT CHAR. 
MOV SNULL, -C( SP) 3sGET @ OF FILLER CHARS. NEEDED 


0 ee oe SS 
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010762 
010766 
010770 
010774 
011000 


011002 
011006 
021012 
011020 
021022 
011024 
011025 


112716 
004737 
132737 
001372 
005726 
000724 


105777 


105777 
100375 
117716 
042716 
122716 
001366 


005726 
105777 


ree 
+12 

600403 
112737 


010046 
010146 
105737 
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011412 


011144 


170036 


011414 
011412 


011414 


TYPE ROUTINE 


78: OECcs 


sHORIZONTAL TAB 


83: MOVE 

9%: JSR 
BITB 
BNE 
TST 

$TYPEC: 


1018: 


1028: 
108: 


18: CMPB 


$CHARCNT : 
$TYPEX: RTS 


-SBTTL APT COMMUNICATIONS ROUTINE 


$5 OOS60606866 66 66000666 60600666066 6066060 0460660660666 6006006606 6464008064048 


$ATYi: MOVB 
SATY3: MOVB 
BR 
SATY4: MOVB 
SATYC: 
MOV 
MOV 
TSTB 


NC 
. WORD 
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1(SP) 
6$ 
PC, $TYPEC 


SCHARCNT 
7$ 


PROCESSOR 


Os TKB, -CSP) 
#177600, (SP) 
@SXOFF (SP) 
1028 


@sTKS 

1018 

@sTKB, (SP) 
#177600, (SP) 
@$X0ON, (SP) 
101% 


2SP), asTPB 
a .2CSP) 


$CHARCNT 
$TYPEX 
@LF ,2¢SP) 
$TYPEX 
(PC)+ 

0 

PC 


#1,$FFLG 
#1,$MFLG 
$ATYC 

#1,$FFLG 


RO, -(SP) 
R1,-CSP) 
$MFLG 














SEQ 0040 


3sAND THE NULL CHAR. 

3s:D0ES A NULL NEED TO BE TYPED? 

336R IF NO--GO POP THE NULL OFF OF STACK 
33GO0 TYPE A NULL 

33:00 NOT COUNT AS A COUNT 

3sLOOP 


3 sREPLACE — SPACE 


ss TYPE A SPA 
3sBRANCH IF NOT AT 
3sTAB STOP 
3sPOP SPACE OFF STACK 
33GET NEXT CHARACTER 
33sCHAR IN KYBD BUFFER? 3MJD001 
336R IF NOT 3MJ0001 
33GET CHAR 3MJ0001 
ssSTRIP EXTRANEOUS BITS 3MJD001 
33WAS CHAR XOFF 3MJD001 
3:B8R IF NOT 3MJD001 
sMJD001 
33WAIT FOR CHAR 3MJD001 
sMJDO001 
33sGET CHAR 3MJ0001 
33sSTRIP IT sMJD001 
33WAS IT XON? sMJ0001 
33;6R IF NOT sMJD001 
sMJD001 
33sFIX STACK 3MJD001 
3MJD001 
3sWAIT UNTIL PRINTER IS READY 
sMJDOO1 


33LOAD CHAR TO ry TYPED INTO DATA REG. 
33IS CHARACTER A CARRIAGE RETURN? 
3;BRANCH IF NO 

+1YES- CLEAR CHARACTER COUNT 

3 

3sIS CHARACTER A LINE FEED? 

3;BRANCH IF YES 

3s;COUNT THE CHARACTER 

;;CHARACTER COUNT STORAGE 


33TO REPORT FATAL ERROR 
3370 TYPE A MESSAGE 


3;TO ONLY REPORT FATAL ERROR 
33;PUSH RO ON STACK 


3s3PUSH R1 ON STACK 
s;SHOULD TYPE A MESSAGE? 
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011370 
011374 
011400 
011404 
011406 
011410 
011412 
011413 
011414 
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177776 
010614 
011414 
001214 
001174 


001214 
001215 


000004 


001174 
011324 
000004 


001176 
000004 





BEQ S$ ssIF NOT: BR 
CMPB @APTENV, SENV ssOPERATING UNDER APT? 
BNE 33 ssIF NOT: BR 
BITs @APTSPOOL , SENVM + SHOULD “<y MESSAGES? 
BEQ 33 s3IF NOT: 
MOV @4(SP),RO 1 GET MESSAGE ADOR. 
ADD #2 ,4(SP) 3;BUMP RETURN ADOR. 
18: TST SMSGTYPE 33SEE IF DONE W/ LAST XMISSION? 
BNE 18 ssIF NOT: WAIT 
Vv RO, $MSGAD 3sPUT ADOR IN MATLBOX 
23: hid _— ssFIND END OF MESSAGE 
SUB $MSGAD ,RO 3;SUB START OF MESSAGE 
ASR RO 33GET MESSAGE LNGTH IN WORDS 
MOV RO, $MSGLGT 3;PUT LENGTH IN MAILBOX 
~¥ amas 3sTELL APT TO TAKE MSG. 
33 MOV @4(SP) 48 33PUT MSG ADOR IN JSR LINKAGE 
ADD @2,4(SP) 3;BUMP RETURN ADDRESS 
MOV 177776,-(SP) 33PUSH 177776 ON STACK 
JSR PC, $TYPE 3s:CALL TYPE MACRO 
a -WORD O 
10$: TSTe $FFLG 3s;SHOULD REPORT FATAL ERROR? 
BEQ 123 s3IF NOT: BR 
TST SENV 3sRUNNING UNDER APT? 
BEQ 12$ s3IF NOT: 6R 
118: TST $MSGTYPE 3sFINISHED LAST MESSAGE? 
BNE 11$ s3IF NOT: WAIT 
MOV @4(SP),$FATAL ;;GET ERROR @ 
ADD @2,4(SP) 3;BUMP SETURN ADDR. 
INC $MSGTYPE 33;TELL APT TO TAKE ERROR 
12$: CLRB $FFLG 3;CLEAR FATAL FLAG 
CLRB $LFLG 3;CLEAR LOG FLAG 
CLRB $MFLG ;;CLEAR MESSAGE FLAG 
MOV (SP)+,R1 3sPOP STACK INTO R1 
MOV (SP)+,RO 33;POP STACK INTO RO 
RTS PC 3: sRETURN 
$MFLG: .BYTE 0O 3sMESSG. FLAG 
$LFLG: .BYTE 0 3;LOG FLAG 
SFFLG: .BYTE O 33FATAL FLAG 
-EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL =100 
AP TCSUP=040 
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T COMMUNICATIONS ROUTINE 


-SBTTL BINARY TO OCTAL CASCII) AND TYPE 


§  OSRSSEEESSESEEESES SESS SAEDEEEESESEEEHEEEEESEEEEEEDESESEEOEEREDS 
s#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT. 

s#$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 







3*CALL: 

34 MOV NUM, -( SP) :sNUMBER TO BE TYPED 

34 TYPOS 3:CALL FOR TYPEOUT 

34 -BYTE WN 33N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 


Oe OO ee eeeeeeeeeEeEeEeEeEeEeEeeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEelee—eeeECweOeeeeeererr ,e_=~=ceeeeeeeeeee 


cat ae ORV118 DMA INTERFACE DIAGNOSTIC 


AC .Pil 


011416 
011422 
011430 
011434 
011440 
011442 
011450 
011456 
011464 
011466 
011470 
011472 
011476 
011500 
011504 
011510 
011514 
011520 
011522 
011524 
011526 
011530 
011532 
011534 
011536 
011540 
011544 
011546 
011552 
011554 
011556 
011560 
011562 
011566 
011572 
011576 
011602 
011606 
011610 
011612 
011614 


07-MAY-85 09:22 


011643 
000006 
011642 


011641 
000012 


011642 
177770 


000060 


000040 
011636 
011636 
011640 





011641 


011641 
011643 
011640 


-BYTE 


MACY11 30(1046) 07-MAY-85 09:37 PAGE 64-3 
BINARY TO OCTAL (ASCII) AND TYPE 


s*$TYPOS OR $TYPOC 


3@CALL: 
3¢@ 
34% 


3s@CALL: 


$TYPOC: 
$TYPON: 


18: 
2s: 


3$: 


4$: 
5$: 


7$: 


MOV 


TYPON 


NUM, -C SP) 


NUM, -C SP) 


CSP), -CSP) 


RS,-CSP) 
SOMODE +1 ,R4 
R4 


#6 ,.R4 

R4, $OMODE 
SOFILL ,R4 
12(SP),R5 


€177770,R3 
43 





ssM=1 OR O 


ss1*TYPE LEADING ZEROS 
330*SUPPRESS LEADING ZEROS 


78 
s#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


ssNUMBER TO BE TYPED 
ssCALL FOR TYPEOUT 


34 
s#$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


ssNUMBER TO BE TYPED 
3sCALL FOR TYPEOUT 


ssPICKUP THE MODE 

+sLOAD ZERO FILL SWITCH 
ssNUMBER OF DIGITS TO TYPE 
ssADJUST RETURN ADDRESS 


3sSET THE ZERO FILL SWITCH 
3sSET FOR SIX(6) DIGITS 
s3SET THE ITERATION COUNT 


3sSAVE R3 
s3;SAVE R4& 
33;SAVE RS 


3sGET THE NUMBER OF DIGITS TO TYPE 


ssSUBTRACT IT FOR MAX. ALLOWED 
ssSAVE IT FOR USE 

3sGET THE ZERO FILL SWITCH 
ssPICKUP THE INPUT NUMBER 
ssCLEAR THE OUTPUT WORD 
ssROTATE MSB INTO “C” 


3;GO DO MS 


8 
33FORM THIS DIGIT 


3sGET LSB OF THIS DIGIT 
ss TYPE THIS DIGIT? 


3;6R IF NO 


3:GET RID OF JUNK 


ss TEST FOR O 


ssSUPPRESS THIS 0? 


33;B8R IF YES 


3;DON'T SUPPRESS ANYMORE 0'S 
+sMAKE THIS DIGIT ASCII 
3sMAKE ASCII IF NOT ALREADY 
33SAVE FOR TYPING 

3:;GO TYPE THIS DIGIT 


ss;COUNT BY 1 


+3BR IF MORE TO DO 


338R IF DONE 


ssINSURE LAST DIGIT ISN'T A BLANK 
33GO DO THE LAST DIGIT 
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AC .Pil 07-MAY-85 09:22 BINARY TO OCTAL CASCII) AND TYPE SEQ 0043 
7880 011616 012605 63: MOV (SP)+,RS ssRESTORE RS 
7881 011620 012604 MOV (SP)+,R4 ssRESTORE R4 
7882 011622 012603 MOV (SP)+,R3 ssRESTORE R3 
7883 011624 016666 000002 000004 MOV 2(SP),4(SP) 33SET THE STACK FOR RETURNING 
7884 011632 012616 MOV (SP)+, CSP) 
7885 011634 000002 RTI 3 sRETURN 
7886 011636 000 83 -BYTE 0O ssSTORAGE FOR ASCII DIGIT 
7887 011637 000 -BYTE 0O ss TERMINATOR FOR TYPE ROUTINE 
7888 011640 000 SOCNT: .BYTE 0 ss;OCTAL DIGIT COUNTER 
7889 011641 000 SOFILL: .BYTE 0 33ZERO FILL SWITCH 
7890 011642 000000 SOMODE: .WORD 0 ssNUMBER OF DIGITS TO TYPE 
ron -SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
7893 5 $b 6O060006 0006 040006000000 00000000 00000000600000000000000000008 
7894 s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5S-DIGIT 
7895 s*#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
7896 s*#NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
7897 s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
7898 s*#REPLACED WITH SPACES. 
7899 ;*CALL: 
7900 3% MOV NUM, -C SP) 3sPUT THE BINARY NUMBER ON THE STACK 
tees 34 TYPOS 3:GO0 TO THE ROUTINE 
7903 011644 $TYPDS: 
7904 011644 010046 MOV RO,-CSP) :sPUSH RO ON STACK 
7905 011646 010146 MOV R1,-(SP) 3sPUSH Ri ON STACK 
7906 011650 010246 MOV R2,-(SP) 33;PUSH R2 ON STACK 
7907 011652 010346 MOV R3,-C(SP) 3sPUSH R3 ON STACK 
7908 011654 010546 MOV RS,-(SP) 3:PUSH RS ON STACK 
7909 011656 012746 620200 MOV #20200, -(SP) 3;SET BLANK SWITCH AND SIGN 
7910 011662 016605 000020 MOV 20(SP),.RS 3;GET THE INPUT NUMBER 
7911 011666 100004 BPL 1$ 3;68R IF INPUT IS POS. 
7912 011670 005405 NEG RS 3;MAKE THE BINARY NUMBER POS. 
7913 011672 112766 000055 000001 MOVB @'-,1¢(SP) 3sMAKE THE ASCII NUMBER NEG. 
7914 011700 005000 1$: CLR RO 3;ZERO THE CONSTANTS INDEX 
7915 011702 012703 012060 MOV @$DBLK .R3 3;SETUP THE OUTPUT POINTER 
7916 011706. 112723 000040 MOVB @ = .CR3)+ 3;SET THE FIRST CHARACTER TO A BLANK 
7917 011712 005002 ; 2s: CLR R2 ;;CLEAR THE BCD NUMBER 
7918 011714 016001 012050 MOV SDOTBLCRO),R1 33GET THE CONSTANT 
7919 011720 160105 3$: SUB R1,R5 3sFORM THIS BCD DIGIT 
7920 011722 002402 BLT 4s 3;B8R IF DONE 
7921 011724 005202 INC R2 3s;INCREASE THE BCD DIGIT BY 1 
7922 011726 000774 BR 3$ 
7923 011730 060105 4$: ADD R1,R5 3;A0D BACK THE CONSTANT 
7924 011732 005702 TST R2 3;CHECK IF BCD DIGIT=0 
7925 631734 001002 BNE 5$ 33;FALL THROUGH IF 0 
7926 011736 105716 TSTB (SP) +sSTILL DOING LEADING 0'S? 
7927 011740 100407 BMI 7$ 3;8R IF YES 
7928 011742 106316 5$: ASLB (SP) 33MSD? 
7929 011744 103003 BCC 6$ 3;B8R IF NO 
7930 011746 116663 000001 177777 MOVB 1(SP),-1(R3) 3; YES--SET THE SIGN 
7931 011754 052702 900060 6$: BIS #'0,R2 3sMAKE THE BCD DIGIT ASCII 
7932 011760 052702 000040 7$: BIS @ ,R2 3sMAKE IT A SPACE IF NOT ALREADY A DIGIT 
7933 011764 110223 MOVB R2,CR3)+ 3;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
7934 011766 005720 TST CRO)>+ 3sJUST INCREMENTING 
7935 011770 020027 000010 CMP RO,#10 3;CHECK THE TABLE INDEX 





OO OOOO _EOEOEOOOOEOEOEOEOEOEOEOE_E_E_E_E_E_E_—EOO EE e———w—wWw3na—-aaQ_—LaQaQaQ£.au 40.0808 
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CVDRAC .Pi1 


7936 011774 
7937 011776 


7972 012070 
7973 012070 
7974 012072 
7975 012074 
7976 012100 
7977 012102 
7978 012110 
7979 012116 
7980 012120 
7981 012124 
7982 012130 
7983 012134 
7984 012142 
7985 012150 
7986 012156 
7987 012160 
7988 012164 
7989 012170 
7990 012170 
7991 012176 


122737 
001007 


177777 


012060 
000002 


177776 


000004 


167032 
167022 


001214 





CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


BLT 2s +3:G0 DO THE NEXT DIGIT 
BGT 8$ 3:G0 TO EXIT 
MOV RS ,.R2 3:GET THE LSD 
BR 6$ 3:GO CHANGE TO ASCII 
8$: TSTB (SP)-« 33WAS THE LSD THE FIRST NON-ZERO? 
BPL 93 3368R IF NO 
MOVB -1(SP),-2(R3) ;;YES-- = =2T THE SIGN FOR TYPING 
9$: CLRB (R3) 3;SET THE TERMINATOR 
MOV (SP)+,RS 33POP STACK INTO RS 
MOV (SP)+,R3 33POP STACK INTO R3 
MOV (SP)+,R2 33POP STACK INTO R2 
MOV (SP)+,R1i :sPOP STACK INTO Ri 
MOV (SP)+,RO 3sPOP STACK INTO RO 
TYPE . $0BLK ssNOW TYPE THE NUMBER 
MOV 2(SP),4(SP) 3sADJUST THE STACK 
MOV (SP)+, (SP) 
RTI +sRETURN 10 USER 
$OTBL: 10000. 
1000. 
100. 
10. 
$OBLK: .BLKW 


4 
-SBTTL ERROR HANDLER ROUTINE 


j FPPORSREAERESESERESEESSESEREREREREREDESESEDEDEDERERE REED EEEEEEE 
s#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
s#AND GO TO SWRCK ON ERROR 

s#THE SWITCH OPTIONS Aap ine BY THIS ROUTINE ARE: 


3#SW15=1 HALT ON ERRO 

3#SW13=1 INHIBIT ERROR TYPEOUTS 

3#SW10=1 BELL ON ERROR 

3*SW09=1 LOOP ON ERROR 

r *CALL 

3% ERROR N 3sERROR=EMT AND N=ERROR ITEM NUMBER 

SERROR 
CKSWR 33TEST FOR CHANGE IN SOFT-SWR 
CKSWR 3GO LOOK FOR SWR CHANGE 

7$: INCB SERFLG 3;SET THE ERROR FLAG 
BEQ 7$ 3;DON'T LET THE FLAG GO TO ZERO 
MOV $TSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #B8IT10,8SWR ;;BELL ON ERROR? 
BEQ 1$ 33NO - SKIP 
TYPE » $BELL 3sRING BELL 

1$: INC SERTTL 3;COUNT THE NUMBER OF ERRORS 
MOV CSP), $ERRPC 33GET ADDRESS OF ERROR INSTRUCTION 
SUB $2, $ERRPC ' 
MOVB SSERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #61T13,aSWR 33SKIP TYPEOUT IF SET 
BNE 20$ 33;SKIP TYPEOUTS 
JSR PC ,SWRCK 33GO TO USER, ERROR ROUTINE 

- TYPE » $CRLF 

$: 

CMPB OAPTENV, SENV 3sRUNNING IN APT MODE 
BNE 2s 33NO,SKIP APT ERROR REPORT 





SEQ 0044 
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CVDRAC P11 07-MAY-85 09:22 ERROR HANOLER SEQ 0045 
7992 012200 113737 001114 012212 MOVB SITEMB 21% 3sSET ITEM NUMBER AS ERROR NUMBER 
7993 012206 004737 011166 JSR PC, SATY4 ssREPORT FATAL ERROR TO APT 
7994 012212 000 218: -BYTE 0 
7995 012213 000 BYTE 0 
7996 012214 000777 22%: BR 22% ssAPT ERROR LOOP 
7997 012216 005777 166716 23: TST @SWR ssHALT ON ERROR 
7998 012222 100002 BPL 3$ ssSKIP IF CONTINUE 
7999 012224 000000 HALT ssHALT ON ERROR! 

8000 012226 104407 CKSWR ssTEST FOR CHANGE IN SOFT-SWR 
8001 012230 032777 001000 166702 33: BIT @BITO9, @SWR ssLOOP ON ERROR SWITCH SET? 

8002 012236 001402 BEQ as 33BR IF NO 

8003 012240 013716 001110 MOV SLPERR , (SP) ssFUDGE RETURN FOR LOOPING 

8004 012244 005737 001162 4%; TST $ESCAPE ssCHECK FOR AN ESCAPE ADDRESS 
8005 012250 001402 BEQ S$ 3368R IF NONE 

8006 012252 013716 001162 MOV SESCAPE , (SP) ssFUDGE RETURN ADDRESS FOR ESCAPE 
8007 012256 S$: 

8008 012256 000002 RTI + sRETURN 

8009 5 5 POSCOE SENS 6666060606 06 000600000000 00 00000006 0000000000000000088 
80iv GO TYPE ERROR 

8011 sGO UPDATE SOFTWARE SWR IF ‘CNTRL/G’ 

8012 § 5 COSSOEEEEEEE 666646 0666600006 0400 0006 0000000006 00000000000000088 
8013 012260 113737 001102 001534 SWRCK: MOVB $TSTNM,TSTNUM ;SET UP TEST @ ON ER 

8014 012266 004737 012276 JSR PC, SERRTYP sGO TYPE ERROR 

8015 012272 104407 CKSWR 3GO LOOK FOR SWR CHANGE 

8016 012274 000207 RTS PC sRETURN TO ERROR HANDLER 

aot -SBTTL ERROR MESSAGE TYPEOUT ROUTINE 

8019 5 5 POSOEEEE ESE 6460660606 600000 0400000006 000000000000000000000000008 
8020 s#THIS ROUTINE USES THE “ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH 
8021 s*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” ($ERRTB), 
root s#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
8024 012276 SERRTYP: 

8025 012276 104401 001171 TYPE » $CRLF s3"CARRIAGE RETURN” & “LINE FEED” 
8026 012302 010046 MOV RO,-CSP) ssSAVE RO 

8027 012304 005000 CLR RO ssPICKUP THE ITEM INDEX 

80268 012306 153700 001114 BISB SesITEMB RO 

8029 012312 001004 BNE 1$ ssIF ITEM NUMBER IS ZERO, JUST 
8030 ssTYPE THE PC OF THE ERROR 

8031 012314 013746 001116 MOV SERRPC , -(SP) ssSAVE $ERRPC FOR TYPEOUT 

8032 ssERROR ADDRESS 

8033 012320 104402 TYPOC 33GO TYPE--OCTAL ASCIICALL DIGITS) 
8034 012322 000426 BR 6$ 3sGET OUT 

8035 012324 005300 1$: DEC RO ssADJUST THE INDEX SO THAT IT WILL 
8036 012326 006300 ASL RO 33 WORK FOR THE ERROR TABLE 
8037 012330 006300 ASL RO 

8038 012332 006300 ASL RO 

8039 012334 062700 001320 ADD #$ERRTB,RO ssFORM TABLE POINTER 

8040 012340 012037 012350 MOV (RO)+,2$ ssPICKUP “ERROR MESSAGE” POINTER 
8041 012344 001404 BEQ 3$ ssSKIP TYPEOUT IF NO POINTER 

8042 012346 104401 TYPE ss TYPE THE “ERROR MESSAGE” 

8043 012350 000000 2s: -WORD 0 ss "ERROR MESSAGE” POINTER GOES HERE 
8044 012352 104401 001171 TYPE » $CRLF ss "CARRIAGE RETURN” & “LINE FEED” 
8045 012356 012037 012366 3$: MOV CRO)+,4$ ssPICKUP “DATA HEADER” POINTER 
8046 012362 001404 BEQ S$ 3sSKIP TYPEOUT IF 0 

8047 012364 104401 TYPE ss TYPE THE “DATA HEADER” 
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CVORAC .P11 07-MAY-85 09:22 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0046 
8048 012366 000000 4$: -WORD 0 ss"DATA HEADER” POINTER GOES HERE 
8049 012370 104401 001171 TYPE . $CRLF ss"CARRIAGE RETURN” & “LINE FEED” 
8050 012374 011000 S$: MOV (RO) ,RO ssPICKUP “DATA TABLE” POINTER 
8051 012376 001004 BNE 7 3sGO TYPE THE DATA 


8052 012400 012600 6$: MOV (SP)+,RO ssRESTORE RO i 
8053 012402 104401 001171 TYPE . $CRLF s3 "CARRIAGE RETURN” E€ “LINE FEED” 
8054 012406 000207 RTS PC + sRETURN 

8055S 012410 7$: 

8056 012410 013046 MOV @CRO)+,-CSP) ssSAVE @CRO)+ FOR TYPEOUT 

8057 012412 104402 TYPOC 33GO TYPE--OCTAL ASCIICALL DIGITS) 
8058 012414 005710 TST CRO) 3sIS THERE ANOTHER NUMBER? 

8059 012416 001770 BEQ 6$ 336R IF NO 

8060 012420 104401 012426 TYPE .8$ ssTYPE TWOC2) SPACES 

8061 012424 000771 BR 7$ + sLOOP 

8062 012426 020040 000 8$: -ASCIZ / / ssTWOC2) SPACES 

8063 012432 -EVEN 

poe -SBTTL SCOPE HANDLER ROUTINE 

8066 5 5 ESOS OEEE E440 08 06 06 06000008 0000000000 000006 0000000000000008088 
8067 s#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
8068 s#AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
8069 s#AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 

8070 s#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

8071 3#SWi4=1 LOOP ON TEST 

8072 s#SWil=1 INHIBIT ITERATIONS 

8073 3#SW09=1 LOOP ON ERROR 

8074 3#SW08=1 LOOP ON TEST IN SWR<S:0> 

8075 3#CALL 

8076 ie SCOPE 3s SCOPE=IOT 

8077 

8078 012432 $SCOPE : 

8079 012432 104407 CKSWR ssTEST FOR CHANGE IN SOFT-SWR 

8080 012434 104407 CKSWR sGO LOOK FOR SWR CHANGE 

8081 012436 032777 040000 166474 1%: BIT #B81T14,8SWR ssLOOP ON PRESENT TEST? 

8082 012444 001117 BNE $OVER ssYES IF SWi4=1 

8083 s@@OO@START OF CODE FOR THE XOR TESTEROOOCO 

8084 012446 000416 $XTSTR: BR 6$ 3sIF RUNNING ON THE “XOR” TESTER CHANGE 
8085 ssTHIS INSTRUCTION TO A “NOP” (NOP=240) 
8086 012450 013746 000004 MOV @OERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
8087 012454 012737 012474 000004 MOV #5$, BERRVEC 3sSET FOR TIMEOUT 

8088 012462 005737 177060 TST 96177060 ssTIME OUT ON XOR? 

8089 012466 012637 000004 MOV (SP)+,@@ERRVEC ;;RESTORE THE ERROR VECTOR 

8090 012472 000466 BR $SVLAD 33GO TO THE NEXT TEST 

8091 012474 022626 S$: CMP (SP)+,(SP)+ ssCLEAR THE STACK AFTER A TIME OUT 
8092 012476 012637 000004 MOV (SP)+,Q@ERRVEC ;;RESTORE THE ERROR VECTOR 

8093 012502 000426 BR 7% 33LOOP ON THE PRESENT TEST 

8094 012504 6%:;@0000END OF CODE FOR THE XOR TESTER@OGGe 

8095 012504 032777 000400 166426 BIT #BIT08 ,@SWR ssLOOP ON SPEC. TEST? 

8096 012512 001407 BEQ 2s 33BR IF NO 

8097 012514 017746 166420 MOV OSWR , -C(SP) ssSET DESIRED TEST NUM. FROM SWR 
8098 012520 042716 000300 BIC @$SWRMK , (SP) ssSTRIP AWAY UNDESIRED BITS 

8099 012524 122637 001102 CMPB (SP)+, $TSTNM 330N THE RIGHT TEST? 

8100 012530 001465 BEQ sOVER 33BR IF YES 

8101 012532 105737 001103 2$: TSTB $ERFLG 3sHAS AN ERROR OCCURRED? 

8102 012536 001421 BEQ 3$ 33BR IF NO 

8103 012540 123737 001115 001103 CMPB SERMAX,$ERFLG ;;MAX. ERRORS FOR THIS TEST OCCURRED? 
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CVORAC .P1i1 
8160 013020 


8162 013022 
8163 013026 
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100375 


117746 
042716 


011646 
016666 
105777 
100375 


166120 
177600 


166044 


001135 000001 
000100 166022 


000002 
177776 
001170 


000004 000002 
165724 


BPL 


BIC 


9%: CMP 


20$: ADD 


10$: CMP 


11$: ADD 


14%: TYPE 


15$: RTI 
16$: JSR 


17$: INC 


18$: TYPE 


-DSABL LSB 
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7$ 


OsTKB, -(SP) 
@tC177,CSP) 


(SP), #25 
10$ 

» $CNTLU 
#6 ,SP 
19% 


C(SP),@15 
16 


#100,8$TKS 


PC, $TYPEC 
(SP) ,#60 


SP) 
-2(SP),(SP) 
7$ 
. $QUES 
20$ 


ssIF NOT TRY AGAIN 


ssPICK UP CHAR 
ssMAKE IT 7-BIT ASCII 


3sIS IT A CONTROL-U? 
ssBRANCH IF NOT 

ssYES, ECHO CONTROL-U (tU) 
ssIGNORE PREVIOUS INPUT 
ssLET'S TRY IT AGAIN 


33IS IT A <CR>? 

3sBRANCH IF NO 

3sYES, IS IT THE FIRST CHAR? 
3;BRANCH IF YES 

3sSAVE NEW SWR 

3sCLEAR UP STACK 

3sECHO <CR> AND <LF> 
3sRE-ENABLE TTY KBD INTERRUPTS? 
+sBRANCH IF NOT 

3sRE-ENABLE TTY KBD INTERRUPTS 
3 sRETURN 

3sECHO CHAR 

3;CHAR < 0? 

+;BRANCH IF YES 

3sCHAR > 77 

:s;BRANCH IF YES 

ssSTRIP-OFF ASCII 

33IS THIS THE FIRST CHAR 
:sBRANCH IF YES 

33NO, SHIFT PRESENT 

ss CHAR OVER TO MAKE 

33 ROOM FOR NEW ONE. 
3:KEEP COUNT OF CHAR 

33SET IN NEW CHAR 

33GET THE NEXT ONE 

33s TYPE ?<CR><LF> 

3sSIMULATE CONTROL -U 


§ SORE REEEEEEE EEE EEEEEEEEEEEEEEOEOE 4640000 400400000000000000008 
s#THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


3*CALL: 

3* ROCHR 

pe RETURN HERE 

3* 

+ 

RDCHR: MOV (SP),-CSP) 
MOV 4(SP),2(SP) 

$ TSTB asTKS 
BPL 1$ 





ssINPUT A SINGLE CHARACTER FROM THE TTY 
ssCHARACTER IS ON THE STACK 
ssWITH PARITY BIT STRIPPED OFF 


33PUSH DOWN THE PC 
33;SAVE THE PS 
3;WAIT FOR 

33A CHARACTER 
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CVORAC .P11 
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165720 
177600 
000004 
165672 
165666 
177600 
000021 
000004 
000004 


013442 
013452 


000177 
001170 
013440 
013440 
000015 
177777 
001172 


000004 
013442 


000004 
000004 
000023 


000002 
000004 


000 
000012 
020122 


053505 





MOVB Os TKB, 4(SP) ssREAD THE TTY 
BIC @tC<177>,4(SP) ;;GET RID OF JUNK IF ANY 


CMP 4(SP),¢@23 33IS IT A CONTROL-S? 
BNE 3$ 3;BRANCH IF NO 

2s: TSTB asTKS ssWAIT FOR A CHARACTER 
BPL 2$ 3sLOOP UNTIL ITS THERE 


MOVB Os TKB, -C SP) ssGET CHARACTER 
BIC #*C177,(SP) ssMAKE IT 7-BIT ASCII 


CMP (SP)-,@21 33IS IT A CONTROL-Q? 
BNE 2s 3sIF NOT DISCARD IT 
BR i$ 33sYES, RESUME 
3$: CMP 4( SP), @$X0N 3sIS IT A RANDOM XON? 3;RANOOL 
BEQ i$ ;s;BRANCH IF YES sRANOO1L 
CMP 4(SP), #140 3sIS IT UPPER CASE? 
BLT 4s 3s;BRANCH IF YES 
CMP 4(SP), #175 33I1S IT A SPECIAL CHAR? 
BGT 4$ 3;BRANCH IF YES 
BIC 640,4(SP) ssMAKE IT UPPER CASE 
4$: RTI 33GO0 BACK TO USER 


§  SORREEEE DEED SEED OSES SEOEOEOEEOO0O0000000000000000040000000008 
s#THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


3*CALL: 
3% ROLIN s;INPUT A STRING FROM THE TTY 
pe RETURN HERE ssADDRESS OF FIRST CHARACTER ~ L BE ON THE STACK 
pe 3s TERMINATOR WILL BE A BYTE OF ALL O'S 
$RDOLIN: MOV R3,-CSP) 33SAVE R3 
i$: MOV @$TTYIN,R3 33GET ADDRESS 
2%: CMP @$TTYINeS. .R3  ;;BUFFER FULL? 
BLOS 4$ 33BR IF YES 
RDCHR 33GO READ ONE CHARACTER FROM THE TTY 
MOVE (SP)+,CR3) + GET CHARACTER 
10$: CMPB #177,CR3) 33IS IT A RUBOUT 
BNE 33 33SKIP IF NOT 
4$: TYPE . $QUES ssTYPE A '?! 
BR i$ 3;CLEAR THE BUFFER AND LOOP 
3%; maa ~~ wees +sECHO THE CHARACTER 
CMPB #15, (R3)+ 3sCHECK FOR RETURN 
BNE 2s 33LOOP IF NOT RETURN 
CLRB -1(R3) 3sCLEAR RETURN (THE 15) 
TYPE »$LF 3sTYPE A LINE FEED 
MOV (SP)+, R3 ssRESTORE R3 
MOV (SP),-CSP) +sADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP),2(SP) 33 FIRST ASCII CHARACTER ON IT 
MOV @sTTYIN, 4(SP) 
RTI 3 sRETURN 
9$: -BYTE 0 ssSTORAGE FOR ASCII CHAR. TO TYPE 
-BYTE 0O 33 TERMINATOR 
$TTYIN: .6LKB 8. ;sRESERVE 8 BYTES FOR TTY INPUT 


SCNTLU: .ASCIZ /tU/<15><12> ssCONTROL “U” 
SCNTLG: .ASCIZ /tG/<15><12> ssCONTROL “G” 
$MSWR: .ASCIZ <15><12>/SWR = / 


$MNEW: .ASCIZ / NEW = / 





MAINDEC-11-CVDRA-C ORV118 DMA INTERFACE game Ut a MACY11 30(1046) 07-MAY-85 09:37 PAGE 64-11 
07-MAY-85 09:22 Y INPUT ROUTINE 


CVDRAC .P11 


013502 036440 000040 


013634 


177770 


000012 
013644 


001170 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


} CROSSE ESEEEESSSESESEREEEERERESESESEEELESEEEEEEEESESEDEEEEEES 
s*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
s*CHANGE IT TO BINARY. 

s#THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
s*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "7?" WILL BE TYPED 
s#FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
s#THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


s*CALL: 
34 RDOCT 3sREAD AN OCTAL NUMBER 
3% RETURN HERE 33LOW ORDER BITS ARE ON TOP OF THE STACK 
34 ssHIGH ORDER BITS ARE IN $HIOCT 
$RDOCT: MOV CSP),-CSP) ssPROVIDE SPACE FOR THE 
MOV 4(SP),2(SP) 3s INPUT NUMBER 
MOV RO,-C(SP) 33PUSH RO ON STACK 
MOV R1i,-CSP) 33;PUSH R1 ON STACK 
MOV R2,-CSP) 3sPUSH R2 ON STACK 
1%: ROLIN 3sREAD AN ASCIZ LINE 
MOV (SP)+,RO 33sGET ADDRESS OF 1ST CHARACTER 
MOV RO,5$ 3sAND SAVE IT 
an pd ssCLEAR DATA WORD 
2s: MOVE CRO)+, -CSP) ssPICKUP THIS CHARACTER 
BEQ 33 ssIF ZERO GET OUT 
CMPB #'0,(SP) ssMAKE SURE THIS CHARACTER 
BGT 4$ 33IS AN OCTAL DIGIT 
CMPB #'7,(SP) 
BLT 43 
ASL Ri 3342 
ROL R2 
ASL Ri 3344 
ROL R2 
ASL Ri 33%8 
ROL R2 
BIC #tC7,(SP) ssSTRIP THE ASCII JUNK 
ADD CSP)+,R1 33AD0 IN THIS DIGIT 
BR 2s 3 sLOOP 
3%: TST (SP )-+ 3sCLEAN TERMINATOR FROM STACK 
MOV R1,12CSP) 3sSAVE THE RESULT 
MOV R2, $HIOCT 
MOV (SP)+,R2 3sPOP STACK INTO R2 
MOV (SP)+,R1 33sPOP STACK INTO Ri 
MOV (SP)+,RO 3sPOP STACK INTO RO 
RTI 3s sRETURN 
4s TST (SP)+ s3;CLEAN PARTIAL FROM STACK 
CLRB CRO) 33SET A TERMINATOR 
TYPE ss TYPE UP THRU THE BAD CHAR. 
5%: -WORD O 
TYPE » $QUES 33°?" "CR® & “LF” 
BR is 33s TRY AGAIN 
SHIOCT: .WORD 0 3sHIGH ORDER BITS GO HERE 


-SBTTL POWER DOWN AND UP ROUTINES 








MAINDEC-11-CVDRA-C DRV116 DMA INTERFACE DIAGNOSTIC 
07-MAY-85 09:22 POWER 


CVDRAC .P11 


8341 013716 


8345 ¢13720 
8346 013726 
8347 013732 
8348 





014012 
000340 


165236 
014016 
013720 


014012 
014016 
014016 
014016 


165170 


013646 
000340 


000024 


000024 
000026 


DOWN AND UP 


MACY11 30(1046) O7-MAY-85 09:37 PAGE 64-12 
ROUTINES 


}  SSSOERSSSE ESSE SESE ESOSEE ESSE EE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEES 
sPOWER DOWN ROUTINE 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
BR 


@¢ILLUP,GOPWRVEC ;;SET FOR FAST UP 
i 3sPRIO:7 


RO, -CSP 3sPUSH RO ON STACK 
R1,-CSP) 3sPUSH R1 ON STACK 
R2,-C(SP 3sPUSH R2 ON STACK 
R3,-CSP) 3sPUSH R3 ON STACK 
R4,-CSP) 3sPUSH R4 ON STACK 
RS, -C(SP) 3sPUSH RS ON STACK 
@GSWR , -(SP) _— @SWR ON STACK 
os $SAVR6 SAVE SP 
@SPURUP, SePURVEC + SET UP VECTOR 
.-2 3 sHANG uP 


8 5 O66 66 0666660606 0606 066660600666 060600606 0600606 00 06008000000000008 


sPOWER UP ROUTINE 
$PWRUP: MOV @¢ILLUP,@@PWRVEC ;;SET FOR FAST DOWN 
MOV S$SAVR6 .SP 33GET SP 
CLR $SAVR6 ssWAIT LOOP FOR THE TTY 
1s: INC $SAVR6 ssWAIT FOR THE INC 
BNE $ a8 WORD 
MOV (SP)+, @SUR 33sPOP STACK INTO @SWR 
MOV (SP)+,RS 33POP STACK INTO RS 
MOV CSP)+,R4 3sPOP STACK INTO R4 
MOV CSP)+,R3 ssPOP STACK INTO R3 
MOV (SP)+,R2 ssPOP STACK INTO R2 
MOV CSP)+,R1 33POP STACK INTO Ri 
MOV (SP)+,RO 3sPOP STACK INTO RO 
MOV @$PWRON, BePURVEC 3sSET UP THE POWER DOWN VECTOR 
MOV 0340, GEPURVEC+2 3sPRIO:7 
TYPE ssREPORT THE POWER FAILURE 
$PWRMG: .WORD PWRMSG 3sPOWER FAIL MESSAGE POINTER 
MOV CPC)+, (SP) ssRESTART AT RESTRT 
$PWRAD: Pa RESTRT ssRESTART ADDRESS 
SILLUP: HALT ss THE POWER UP SEQUENCE WAS STARTED 
BR --2 33s BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: O 3sPUT THE SP HERE 
PWRMSG: .ASCIZ <15><12>/RESTARTED FROM PWR FAIL/ 


-EVEN 
-SBTTL TRAP DECODER 


bp OSSSSSSSESSSESESESEEEEDESESESESEDEEEEDEEEEEEEEEEEOEEEEDEEEDE 
s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
s@AND USE IT TO INDEX THROUGH THE TRAP TABLE FOit THE STARTING ADORESS 





SEQ 0051 


MAINDEC-11-CVDRA-C ORV118 DMA INTERFACE OIAGNOSTIC 
CVORAC .P1i 


8378 
8379 


014174 


014175 
014202 
014210 


011646 
016666 
000002 


07-MAY-85 09:22 


044524 
020124 


051040 
051127 
051105 


051040 
042440 


TRAP DECODER 


MACY11 30(1046) 07-MAY-85 09:37 PAGE 64-13 


s@0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
s°G0 TO THAT ROUTINE. 


STRAP: MOV 
MOV 
TST 
MOvB 
ASL 


MOV 
RTS 


RO, -(SP) ssSAVE RO 

2(SP),RO ssGET TRAP ADDRESS 

-(RO) 88 8 

(RO) .RO ssGET RIGHT BYTE TRAP 


33G0 TO ROUTINE 


ssTHIS IS USE TO HANDLE THE “GETPRI” MACRO 


STRAP2: MOV 
MOV 


CSP), -CSP) 


ssMOVE THE PC DOWN 
4(SP),2CSP) ssMOVE THE PSW DOWN 


ssRESTORE THE PSW 


-SBTTL TRAP TABLE 


s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
s@BY THE “TRAP” INSTRUCTION. 


3 
STRPAD: Fe 


ssCALL*TYPE TRAP +1(104401) TTY TYPEQUT ROUTINE 

ssCALL*TYPOC TRAP +2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
ssCALL*TYPOS TRAP +3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
ssCALL*TYPON TRAP +4( 104404) TYPE OCTAL NUMBER CAS PER LAST CALL) 
ssCALL*TYPOS TRAP +S(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


ssCALL*GTSUR TRAP +6( 104406) GET SOFT-SWR SETTING 


ss CALL °CKSWR TRAP +7(104407) TEST FOR CHANGE IN SOFT-SUR 

5 sCALL *ROCHR TRAP +10( 104410) TTY TYPEIN CHARACTER ROUTINE 
ssCALL*ROLIN TRAP +11( 104411) TTY TYPEIN STRING ROUTINE 

ss CALL *RDOCT TRAP +12( 104412) READ AN OCTAL NUMBER FROM TTY 


-SBTTL ASCII MESSAGES 


EM1: -ASCIZ 


EM2: -ASCIZ 


EMS: -ASCIZ 


/REG TIMEOUT ER/ 


‘REG READ/WRITE ER‘ 


/BUS RESET ER/ 


MAINDEC-11-CVDRA-C DORV116 DMA INTERFACE DIAGNOSTIC 


CvORAC 


8427 
8428 


-Pil 


014323 
014330 
014336 
014344 


014345 
014352 
014360 
014366 


014373 
014400 
014406 
014414 


014422 
014430 
014436 


014443 
014450 
014456 


07-MAY-85 09:22 





020101 
020117 


ASCII MESSAGES 
EM4: -ASCIZ 
EMS: -ASCIZ 
EM6: -ASCIZ 
EM7: -ASCIZ 
EM10: -ASCIZ 
EM11: .ASCIZ 
EM12:  .ASCIZ 
EM13: -ASCiZ 





MACY11 30(1046) 07-MAY-85 09:37 PAGE 64-14 


SEQ 0053 


/FNCT BITS FAILED TO SET STAT BITS/ 


/READY INTR FAILURE/ 


/READY CLR OR SET ER/ 


/STATUS ER ON XFER/ 


/WORD COUNT ER ON XFER/ 


/BUFFER ADRS ER ON XFER/ 


/DATA ER FROM MEM/ 


/DATA ER TO MEM/ 
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CVORAC .P il 07-MAY-85 09:22 ASCII MESSAGES SEQ 0054 


8459 
8460 014462 044523 043516 042514 EM14:  .ASCIZ /SINGLE CYCLE OFF DID NOT LOCK OUT CPUs 
014470 041440 041531 042514 
014476 047440 043106 042040 
014504 042111 047040 052117 
014512 046040 041517 020113 
014520 052517 020124 050103 
014526 000125 


8467 014530 044523 043516 042514 EMIS: .ASCIZ /SINGLE CYCLE ON LOCKED OUT CPU/ 
014536 041440 041531 042514 
014544 047440 020116 047514 
014552 045503 042105 047440 
014560 052125 041440 052520 


8473 014567 015 050012 042514 WARN: -ASCII <15><12>/PLEASE DISABLE “REV11” MEMORY REFRESH OPTION/ 
014574 051501 020105 044504 
014602 040523 046102 020105 
014610 051042 053105 030461 
014616 020042 042515 047515 
014624 054522 051040 043105 
014632 042522 044123 047440 
014640 052120 047511 116 


8481 014645 015 040412 042116 -ASCIZ <15><12>/AND ENABLE PROCESSOR MEMORY REFRESH / 
014652 042440 040516 046102 
014660 020105 051120 041517 
014666 051505 047523 020122 
014674 042515 047515 054522 
014702 051040 043105 042522 
014710 044123 020040 000040 


8488 014716 042516 020130 047514 EM16: -ASCIZ /NEX LOGIC ER/ 
014724 044507 020103 051105 
014732 000 








a rc Se  -aneee east 





MAINDEC-11-CVDRA-C ORV118 DMA INTERFACE DIAGNOSTIC MACY11 30(1046) 07-MAY-85 09:37 PAGE 64-16 

CVDRAC P11 07-MAY-85 09:22 ASCII MESSAGES SEQ 0055 
8489 
8490 


6491 014733 103 041531 042514 EM17: .ASCIZ /CYCLE FAILED TO CLK DBR (IN)/ 
014740 043040 044501 042514 
014746 020104 047524 041440 
014754 045514 042040 051102 
014762 024040 047111 000051 


8496 014770 040504 040524 042440 EM20: .ASCIZ “DATA ER FROM I/0 PAGE (XCSR)” ° 


8497 

8498 

8499 

8500 : 

8501 015025 105 051122 041520 DH1: -ASCIZ /ERRPC TSTNUM BUSADR EXPCT RCVD/ 
015032 020040 052040 052123 


8508 015072 051105 050122 020103 DH: -ASCIZ /ERRPC TSTNUM BUSADR ADRS EXPCT RCVD/ 

015100 020040 051524 047124 
015106 046525 020040 052502 
015114 040523 051104 020040 
015122 042101 051522 020040 
015130 020040 054105 041520 
015136 020124 020040 041522 
015144 042126 000 


8516 015147 105 051122 041520 DH3: -ASCIZ /ERRPC TSTNUM BUSADR/ 
015154 020040 052040 052123 
015162 052516 020115 041040 
015170 051525 042101 000122 
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CVDRAC .P il 


8521 
8522 


8523 
8524 


rc: 


015176 
015204 


015212 
015220 
015226 


015230 
015236 


015240 
015246 
015254 
015262 
015270 


015276 
015304 
015312 
015320 
015326 


015332 
015340 
015346 
015354 
015362 


015364 


001116 
001124 


001116 
001120 


015364 


000000 
000001 





001534 
001126 


001534 
001124 


001534 


051511 


050040 
051523 
043104 
020077 





001122 
000000 


001122 
001126 


001122 


052040 
047522 
051117 
030461 
000040 


047101 
020123 
027511 
042507 


051104 
043117 
050040 
020040 







ASCII MESSAGES SEQ 0056 
-EVEN 
OT1: SERRPC , TSTNUM, SBDADR , $GDDAT, $BDDAT ,O 


OT2: SERRPC , TSTNUM, SBDADR , $GDADR, $GDDAT , $B8DDAT, 0 


OTS: SERRPC , TSTNUM, $BDADR ,O 


KDF118: .ASCIZ <15><12>/IS THE PROCESSOR KDF11-87 / 


IOTEST: .ASCIZ <15><12>. TRANSFERS FOR I/0 PAGE? 


IOADR: .ASCIZ <15><12>\ADDRESS OF I/0 PAGE? \ 


-EVEN 
§ 5 POSS OEE OS 06 06 660606 6666000006000000060000000000000000000000008 
3‘DBUF’ IS THE WORKING AREA IN EACH 4K MEM FOR ALL 
sNPR OPERATIONS - IT IS 206 WORDS LONG 
jj PRRREEEAEEEEES OSES OSES EEEEEEEEEEEEEEEDEE SEEDED EKEEEEEDEDEEEES 
DBUF : i 31ST ADRS OF DATA BUFFER 


MAINDEC-11-CVDRA-C ORV118 DMA INTERFACE DIAGNOSTIC 
CVORAC .P11 


ABASE = 
ACOW1 = 
ACDW2 = 


BITO1 = 
BITO2 = 


172410 





07-MAY-85 09:22 


6698 


7990 


6703 


6762 


7550 
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CROSS REFERENCE TABLE -- USER SYMBOL 












a + ee 
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CVORAC .P11 07-MAY-85 09:22 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0058 
BITOS = 000010 6155@ 6165 
BITO4 = 000020 6154@ 6164 
BiTOS = 000040 6153@ 6163 
BITO6 = 000100 6152@ 6162 
BITO7 = 000200 6151@ 6161 6614 
BITOB = 000400 6150@ 6160 8095 
BITO9 = 001000 6149@ 6159 8001 8105 
BIT1 = 000002 6167¢ 
BIT10 = 002000 6148@ 7978 
BIT11 = 004000 6147@ 8112 
BIT12 = 010000 6146¢ 
BIT13 = 020000 6145¢@ 7206 7985 
BIT14 = 040000 6144@ 8081 
BIT1S = 100000 6143¢ 
BIT2 = 000004 6166¢ 
BITS = 000010 6165¢ 
BIT4 = 000020 6164¢ 
BITS = 000040 6163¢ 
BIT6 = 000100 6162@ 6862 
BIT? = 000200 6161¢ 
BITS = 000400 61606 
BIT9 = 001000 6159¢ 
BPTVEC= 000014 6175¢ 
CKDAT 010444 7098 7611¢@ 
CKDAT1 010512 7212 7311 7353 7630@ 
CKSTAT 010142 6958 7004 7050 7088 7194 7301 7343 7382 7424 7532¢ 
CKSWR = 104407 6051¢@ 7973 7974 8000 8015 8079 8080 
CORSZ 001540 6525@ 6617 6628* 7325 
CORSZR 002270 6618 6623¢ 
= 000015 6083@ 7747 
CRLF = 000200 6084@ 6603 7702 
OBUF 015364 6526 6630 6946 6947« 6967 6993 7014 7016 7039 7059 7076 7113 7146 
7182 7286 7358 7399 7441 7565 7569 7574 7611 7618 85498 
DBUFP 001542 oy 6630e 7323¢ 7324 7325 7328 7358* 7369 73998 74118 74418 7548 7588 
ODISP = 177570 6090@ 6315 6557 
DH1 015025 6416 6422 6428 6434 6440 6446 6451 6457 6463 6493 6499 8501¢ 
DH2 015072 6469 6475 6504 8508¢ 
OH3 015147 6481 6487 8516¢ 
DISPLA 001142 6315@ 6557¢ 6565¢ 7977 8127s 
DISPRE 000174 6247@ 6565 
DMAP 001536 6524@ 6632 6633« 6635 7449% 7458 
DRVBAR 001522 6512@ 6693 6696* 6697 6754e 6761 6764 6902 6904e 6905 6910 6946+  6993« 
6+ +9 4 de 7i13e = =67146# §=6©7182e §=697227% = 7253 7257 7266 7328 73708 7412¢  7452« 
DRVCSR 001524 6513@ 6780 6784e 6785 6795 6805 6807* 6809 6818 6836 6839% 6840 6857 


6862+ 6864 6868 6872 6883 6885¢ 6886 6890 6892 6901 6909% 6914e  6923« 
6929 6948 69494 6951 6953 6954 6995 69964 6998 7000 7041¢ 7042e 7043 
7045 7046¢ 7079% ##7080# 7081 7083 7084e 7107 7115@¢ 7116@ 7123 7124@ §7140 
7148 7149% 7154 7155¢ 7164 7185¢ 7186¢ 7187 7189 7190¢ 7229% 7230 7231 
7233 7234 7238 7242 7262 7263 7267 7271 7275 7289% 7290% 7294 7296 
7297 73318 73326 7336 7338 7339 7373 7374 7375 7377 7378% 7415¢ 7416s 


DRVCTO 001530 6518@ 6579 6856 6861 7455¢ 75126 7521s 
DRVCT2 001532 6519¢@ 6584 7456¢ 7513¢ 7521 75226 
DRVOBR 001526 6514@ 6577 6716 6719* 6720 6735 6755* 6766 6768 69226 
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CVDRAC .P11 
ORVWCR 001520 
OSWR © 177570 
OT1 015176 
oT2 015212 
oT3 015230 
EMTVEC= 000030 
014134 


014153 

014770 
—EM3 014175 
Em4 014212 
EMS 014254 
EM6 014277 
EM7 014323 
ERRVEC= 
GTSWR = 104406 
HT = 000011 
IOADR 015332 
IOPAGE 001544 
IOTEST 015276 
IOTVEC= 000020 

001546 
KDF118 015240 
LOBUF 010322 
LOBUF1 010374 


PRI = 000040 
PR2 = 000100 
PRS = 000140 
PR&4 == 000200 
PRS = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = 177776 
PWRMSG 014026 
PWRVEC= 000024 





7061 7064 

6676 667° 

7226 7246 

6447 6452 

6629  6655« 
7439 

8339% 8345s 





7077 


6753 
7250 


6458 


6666+ 


83574 
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73720 
6757 
72874 


6464 


8086 


8358 





7414 
6992 
74100 


8522¢ 


80928 
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6638¢ 
6981 7028 7066 7100 7133 7169 7216 7277 7315 7359 7400 

















6988 7035 7073 7108 7141 7176 7224 7283 7321 7366 7408 
STACK = 001100 6076@ 6537 6639 







SWR 001140 6314@ 6535 6556+ 6558 6564¢ 6571¢ 6596 6614e 7364 
8081 8095 8097 8105 8112 6141 8178 8337 8350s 


SWRCK 
SWREG 000176 6248@ 6564 6596 8141 8154 
















TRAPVE= 000034 6179@ 65434 6544s 
TSTNUM 001534 6523@ 8013« 8522 8524 8527 









TST11 003502 6811 6817¢ 
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6619 7481 7484 7705 7874 7949 
8047 8049 8053 8060 8152 8153 8156 8169 


TYPOC = 104402 6046@ 8033 8057 8155 






$BDADR 001122 6306@ 6658% 6673 6693 6716 6736+ 6759% 67644 
6857 6883+ 6902 $920e 6951¢ 6972 6998% 70196 
7187¢ §=7231¢ 7242¢ 72508 #72578 #7267 #7275¢ #72946 
7537 7542¢ #7553 7614¢ 7645¢ 8522 8524 8527 
SBDDAT 001126 6308@ 6654 6677« 6678 6697 6698% 6699 67202 
6743 6757# 6761 6762 6766¢ 6785* 6786¢ 6787 
6823 6824 6825* 6826 6840 6841+ 6842 6864 
6892 6893 6905* 6906 6910 6925 6926 6931« 
7016 7017 7045 7061« #7062 7083* 7iii*# 7120 
7161 7164e 7166 7189¢ 72338 ###7238% #7240 72464 
7271# 7273 7291e 72928 7296 #7333¢ 73348 7338 
7436 7532e 7535 7540e 75498 ##7550« 7551 7615« 


SCHARC 011144 7706 7716¢ 7723 7749% 8=7754¢@ 


SCNTLG 013457 8152 8267¢ 


MAINDEC-11-CVDRA-C DRV118 DMA INTERFACE DIAGNOSTIC MACY11 30( 1046) gets 09:37 PAGE 65-4 


7980 
8180 


6768s 
70434 
73364 


6721 
6795 
6868 
6932 
7123 
7248 
7377 
76426 




























MAINDEC-11-CVDRA-C DRV118 DMA INTERFACE DIAGNOSTIC 


MACY11 30(1046) 07-MAY-85 09:37 PAGE 65-5 
CVORAC .Pi1 07-MAY-85 09:22 s 


S REFERENCE TABLE -- USER SYMBOL 
































7705 
7949 
6643¢ 


7988 
7957¢@ 


8025 8044 8049 8053 8180 





7793 
SENVM §=001215 6346@ 6569 7687 7692 7771 


SERFLG 001103 6297@ 7975¢ 8101 8103 8109« 


SERRPC 001116 63040 7982 79834 7984 8031 8522 8524 8527 


SESCAP 001162 6325@ 6548+ 8004 8006 8125¢ 


SFFLG 011414 7760¢ 7763 7791 7800¢ 7808¢ 


$GDADR 001120 6305@ 6967¢ 7014 7059 7397 74398 #7616 7643« 8524 
$GDDAT 001124 6307@ 6653¢ 6675¢ 6676 6678 6681¢ 6684¢ 6685¢ 6695¢ 6696 6699 6702e  6703¢ 
6706 6708 6718% 6719 6721 67248 6727 6728 6738 6743 6752 6782¢ 67834 
6787 6794 6806+ 6810 6821 6826 6837¢ 6842 6845¢ 6858 6873 6884e 6887 
6891¢ 6893 6903 6906 6912 6921# 6922 6926 6930e 6932 6952¢ 6968 6970 
6999 7015¢ 7017 7044 8 7060¢ 7062 7082 7122 7153¢ 7165 7166 7188 72326 
7239¢ 7240 7247# 7248 7254e 7255 7264 7265 7272 7273 7295¢ 73376 73764 
7392e 87394 7418 7434 7436 7534 87535 7543¢ 7546 75474 7551 








MAINDEC-11-CVDRA-C ORV118 OMA INTERFACE DIAGNOSTIC 
CVORAC .P11 





07-MAY-85 09:22 


8410 


6286 


8117 
83640 
7992 
6649¢ 
6652¢ 


6335¢ 


78026 
7780 
77834 


7888¢ 
7850 
8108 
74736 


8357 


8250 


8347s 


7806¢ 


7795 


8322 


8348s 


8123¢ 
66926 


7799¢ 


78646 
8127¢ 
7482 


83666 


MACY11 30(1046) 07-MAY-85 09:37 PAGE 65-6 
CROSS REFERENCE TABLE -- USER SYMBOLS 


8128 
6715¢ 6779% 6835¢ 6940¢ 69878 8003 


78900 
8114 





8107 


8124¢ 


MAINDEC-11-CVDRA-C DRV118 DMA INTERFACE DIAGNOSTIC MACY11 30(1046) 07-MAY-85 09:37 PAGE 65-7 


CVORAC .P11 07-MAY-85 09:22 CROSS REFERENCE TABLE -- USER s SEQ 0064 
STESTN 001200 63380 6650¢ 81226 
STIMES 001160 63240 6547¢ 675ie 6775¢ 6804e 6853¢ 7034e 7072¢ 7106 7139¢ 717Se 72226 72826 
7320e 4 67472¢ 6110 8117 8120e 
$TKB 001146 6317@ 7730 7737 3145 8162 8216 8222 
$TKS 001144 6316@ 7728 7735 6143 8159 6183¢ 8214 8220 
$TN §=6—*= 000001 6057@ 60610 
$TPB 001152 63190  7746¢ 
STPFLG 001157 6323@ 7679 
$TPS 001150 63180 7369 7370 7392 7397 7744 
STRAP 01 6543 83810 
STRAP2 014074 8392@ 8403 
STRPAD 014106 8386 84036 
STSTM 001004 62830 
STSTNM 001102 6296@ 6651¢ 7471¢ 7977 8013 8099 Si2zie 8122 8127 
STTYIN 013442 8243 8244 8261 8265¢ 
STYPDS 011644 7903@ 8408 
$TYPE 010614 7679@ 7788 8404 
STYPEC 011026 7708 7715 7722 7727@ «©8185 
STYPEX 011146 7750 7752 7755¢@ 
STYPOC 011442 7844@ 8405 
STYPON 011456 7843 7846@ 8407 
STYPOS 011416 7839@ 8406 
SUNIT 001206 6341@ 6631¢ 6640 6641 74576 
SUNITMH 001010 62850 
001220 63480 
$VECT1 001244 6373@ 6580 
SVECT2 001246 63740 
$XOFF © 000023 7732 
$XON = 000021 6055¢@ 7739 8227 
SXTSTR 012446 80846 
SOFILL 011641 7840¢ 7044e 7854 7889@ 
. * 015366 6242@ 6246@ 6251@ 6258 6259@ 6261@ 6263@ 6264@ 6270 6271@ 6273@ 6275@ 6293¢ 
6536 6550 6551 6604@ 7809 7957@ 8063@ 8265¢@ 8341 8365 85440 
-$X © 001000 6270@ 6275 ' 


- ABS. 015366 000 


ERRORS DETECTED: 0 


CVORAC, pe te 2 lore ree 
RUN-TIME: 9 12 .8 SECONDS 

RUN-TIME RATIO: 77/22*3.3 

CORE USED: 36K (72 PAGES) 





